Wilson primes of order n: Difference between revisions
m
→{{header|RPL}}: removed a debug instruction
(→{{header|PARI/GP}}: fix typo) |
m (→{{header|RPL}}: removed a debug instruction) |
||
Line 1,452:
=={{header|RPL}}==
{{works with|
« → maxp
« { }
Line 1,459:
'''IF''' DUP ISPRIME? NOT '''THEN''' NEXTPRIME '''END'''
'''WHILE''' DUP maxp < '''REPEAT'''
n 1 - FACT OVER n - FACT * -1 n ^ -
'''IF''' OVER SQ MOD NOT '''THEN''' SWAP OVER +
NEXTPRIME
'''END'''
DROP 1 →LIST +
|