Least m such that n! + m is prime: Difference between revisions
Least m such that n! + m is prime (view source)
Revision as of 20:09, 12 November 2023
, 7 months agoadded RPL
(Added Quackery.) |
(added RPL) |
||
Line 357:
First m > 10000 is 12619 at position 599</pre>
=={{header|RPL}}==
« « n FACT DUP NEXTPRIME SWAP - » 'n' 0 4 ROLL 1 SEQ
» » '<span style="color:blue">A33932</span>' STO
« 49 DUP <span style="color:blue">A33932</span>
SWAP
'''DO''' 1 +
DUP FACT DUP NEXTPRIME SWAP -
'''UNTIL''' 1000 > '''END'''
» '<span style="color:blue">TASK</span>' STO
{{out}}
<pre>
2: { 1 1 1 1 5 7 7 11 23 17 11 1 29 67 19 43 23 31 37 89 29 31 31 97 131 41 59 1 67 223 107 127 79 37 97 61 131 1 43 97 53 1 97 71 47 239 101 233 53 83 }
1: 107
</pre>
Needs over an hour on an iOS emulator (iHP48).
=={{header|Ruby}}==
| |||