Neighbour primes: Difference between revisions
→{{header|Ring}}
(Created page with "{{Draft task}} ;Task: Find and show primes p such that p*q+2 is prime, where q is next prime after p, where '''p < 500''' <br><br> =={{header|Ring}}== <lang ring> load "stdl...") |
|||
Line 9:
load "stdlib.ring"
see "working..." + nl
see "Neighbour primes are:" + nl
see "prime1 prime2 prime3" + nl
row = 0
num = 0
pr = 0
Line 30 ⟶ 32:
prim = Primes[n]*Primes[n+1]+2
if isprime(prim)
row = row + 1
see "" + Primes[n] + " " + Primes[n+1] + " " + prim + nl
ok
next
see "Found " + row + " neighbour primes" + nl
see "done..." + nl
</lang>
Line 39 ⟶ 43:
<pre>
working...
Neighbour primes are:
prime1 prime2 prime3
3 5 17
Line 60 ⟶ 65:
439 443 194479
487 491 239119
Found 20 neighbour primes
done...
</pre>
| |||