Quad-power prime seeds: Difference between revisions
Content added Content deleted
(→J: add) |
(added RPL) |
||
| Line 706: | Line 706: | ||
nine million is the 645th: 9,055,151 |
nine million is the 645th: 9,055,151 |
||
ten million is the 701st: 10,023,600</pre> |
ten million is the 701st: 10,023,600</pre> |
||
=={{header|RPL}}== |
|||
{{works with|HP|49}} |
|||
« { } 1 |
|||
'''WHILE''' OVER SIZE 50 < '''REPEAT''' |
|||
1 SF 1 4 '''FOR''' j |
|||
DUP j ^ OVER + 1 + |
|||
'''IF''' ISPRIME? NOT '''THEN''' 1 CF 4 'j' STO '''END''' |
|||
'''NEXT''' |
|||
'''IF''' 1 FS? '''THEN''' SWAP OVER + LOOK SWAP '''END ''' |
|||
1 + |
|||
'''END''' |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1: {1 2 5 6 69 131 426 1665 2129 2696 5250 7929 9689 13545 14154 14286 16434 19760 25739 27809 29631 36821 41819 46619 48321 59030 60500 61955 62321 73610 77685 79646 80535 82655 85251 86996 91014 96566 97739 105939 108240 108681 119754 122436 123164 126489 140636 150480 153179 163070} |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
| Line 723: | Line 740: | ||
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070 |
108240 108681 119754 122436 123164 126489 140636 150480 153179 163070 |
||
</pre> |
</pre> |
||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{libheader|Wren-gmp}} |
{{libheader|Wren-gmp}} |
||