Special neighbor primes: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 1: | Line 1: | ||
{{Draft task}} |
{{Draft task}} |
||
;Task:Let ('''p<sub>1</sub>''', '''p<sub>2</sub>''') are |
;Task:Let ('''p<sub>1</sub>''', '''p<sub>2</sub>''') are neighbor primes. Find and show here in base ten if '''p<sub>1</sub>+ p<sub>2</sub> -1''' is prime, where '''p<sub>1</sub>, p<sub>2</sub> < 100'''. |
||
<br><br> |
<br><br> |
||
Line 10: | Line 10: | ||
see "working..." + nl |
see "working..." + nl |
||
see "Special |
see "Special neighbor primes are:" + nl |
||
row = 0 |
row = 0 |
||
oldPrime = 2 |
oldPrime = 2 |
||
Line 25: | Line 25: | ||
next |
next |
||
see "Found " + row + " special |
see "Found " + row + " special neighbor primes" |
||
see "done..." + nl |
see "done..." + nl |
||
</lang> |
</lang> |
||
Line 31: | Line 31: | ||
<pre> |
<pre> |
||
working... |
working... |
||
Special |
Special neighbor primes are: |
||
3,5 => 7 |
3,5 => 7 |
||
5,7 => 11 |
5,7 => 11 |
||
Line 45: | Line 45: | ||
67,71 => 137 |
67,71 => 137 |
||
73,79 => 151 |
73,79 => 151 |
||
Found 13 special |
Found 13 special neighbor primes |
||
done... |
|||
</pre> |
</pre> |
Revision as of 05:09, 6 August 2021
Special neighbor primes is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
- Task
- Let (p1, p2) are neighbor primes. Find and show here in base ten if p1+ p2 -1 is prime, where p1, p2 < 100.
Ring
<lang ring> load "stdlib.ring"
see "working..." + nl see "Special neighbor primes are:" + nl row = 0 oldPrime = 2
for n = 3 to 100
if isprime(n) and isprime(oldPrime) sum = oldPrime + n - 1 if isprime(sum) row++ see "" + oldPrime + "," + n + " => " + sum + nl ok oldPrime = n ok
next
see "Found " + row + " special neighbor primes" see "done..." + nl </lang>
- Output:
working... Special neighbor primes are: 3,5 => 7 5,7 => 11 7,11 => 17 11,13 => 23 13,17 => 29 19,23 => 41 29,31 => 59 31,37 => 67 41,43 => 83 43,47 => 89 61,67 => 127 67,71 => 137 73,79 => 151 Found 13 special neighbor primes done...