Neighbour primes: Difference between revisions
add RPL
(add RPL) |
|||
Line 1,329:
<pre>
[3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487]
</pre>
=={{header|RPL}}==
≪ → max
≪ { } 2
'''WHILE''' DUP max < '''REPEAT'''
'''IF''' DUPDUP NEXTPRIME * 2 + ISPRIME? '''THEN''' SWAP OVER + SWAP '''END'''
NEXTPRIME
'''END''' DROP
≫ ≫ '<span style="color:blue">NEIGHB</span>' STO
500 <span style="color:blue">NEIGHB</span>
{{out}}
<pre>
1: {3 5 7 13 19 67 149 179 229 239 241 269 277 307 313 397 401 419 439 487}
</pre>
| |||