Penta-power prime seeds: Difference between revisions
Content added Content deleted
(→J: add) |
(added RPL) |
||
Line 806: | Line 806: | ||
nine million is the 71st: 9,100,671 |
nine million is the 71st: 9,100,671 |
||
ten million is the 72nd: 10,347,035</pre> |
ten million is the 72nd: 10,347,035</pre> |
||
=={{header|RPL}}== |
|||
Directly adapted from [[Quad-power prime seeds#RPL|Quad-power prime seeds]], but faster since seeds must be odd to get <code>n<sup>0</sup> + n + 1</code> primality. However, needs to be run on an emulator to get the result in around one hour. |
|||
{{works with|HP|49}} |
|||
« { } 1 |
|||
'''WHILE''' OVER SIZE 30 < '''REPEAT''' |
|||
1 SF |
|||
0 4 '''FOR''' j |
|||
DUP j ^ OVER + 1 + |
|||
'''IF''' ISPRIME? NOT '''THEN''' 1 CF 4 'j' STO '''END''' |
|||
'''NEXT''' |
|||
'''IF''' 1 FS? '''THEN''' SWAP OVER + SWAP '''END ''' |
|||
2 + |
|||
'''END''' |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1:{1 5 69 1665 2129 25739 29631 62321 77685 80535 82655 126489 207285 211091 234359 256719 366675 407945 414099 628859 644399 770531 781109 782781 923405 1121189 1158975 1483691 1490475 1512321} |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
Line 821: | Line 840: | ||
644399 770531 781109 782781 923405 1121189 1158975 1483691 1490475 1512321 |
644399 770531 781109 782781 923405 1121189 1158975 1483691 1490475 1512321 |
||
</pre> |
</pre> |
||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{libheader|Wren-gmp}} |
{{libheader|Wren-gmp}} |