Wilson primes of order n: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|HP|49}}

« → maxp

« { }

1 11 '''FOR''' n

{ } n

'''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 + LOOK SWAP '''END'''

NEXTPRIME

'''END'''

DROP 1 →LIST +

'''NEXT'''

» » '<span style="color:blue">TASK</span>' STO

{{out}}

<pre>

1: { { 5 13 } { 2 3 11 } { 7 } { } { 5 7 } { 11 } { 17 } { } { } { 11 } { 17 } }