De Polignac numbers: Difference between revisions
→Creating RPL entry
SqrtNegInf (talk | contribs) (Added Perl) |
|||
Line 755:
Ten thousandth: 273,421</pre>
=={{header|RPL}}==
Polignac really made a fool of himself for all time by writing to the French Academy of Science that he had verified his "theorem" up to 3,000,000
{{works with|Halcyon Calc|4.2.7}}
≪ IF DUP 5 ≤ THEN
{ 2 3 5 } SWAP POS SIGN
ELSE
IF DUP 2 MOD NOT THEN
2
ELSE
DUP √ CEIL → lim
≪ 3
WHILE
DUP2 MOD OVER lim ≤ AND
REPEAT 2 + END
≫
END
MOD SIGN
END
≫
'PRIM?'STO
≪ → n
≪ { } 3
DO
1 CF
DUP LN 2 LN / FLOOR
WHILE DUP 1 FC? AND REPEAT
2 OVER ^ 3 PICK SWAP -
IF PRIM? THEN 1 SF END
1 -
END
DROP
IF 1 FC? THEN DUP ROT SWAP + SWAP END
2 +
UNTIL OVER SIZE n == END
DROP
≫
≫
'DPFAIL' STO
50 DPFAIL
{{out}}
<pre>
1: { 3 127 149 251 331 337 373 509 599 701 757 809 877 905 907 959 977 997 1019 1087 1199 1207 1211 1243 1259 1271 1477 1529 1541 1549 1589 1597 1619 1649 1657 1719 1759 1777 1783 1807 1829 1859 1867 1927 1969 1973 1985 2171 2203 2213 }
</pre>
=={{header|Wren}}==
| |||