Wieferich primes: Difference between revisions
added RPL
No edit summary |
(added RPL) |
||
| (One intermediate revision by one other user not shown) | |||
Line 559:
return 1
.
func
if isprim p = 0
return 0
Line 575:
print "Wieferich primes less than 5000: "
for i = 2 to 5000
if
print i
.
Line 1,131:
Found 2 Wieferich primes that are < 5,000
</pre>
=={{header|RPL}}==
{{works with|RPL|HP49-C}}
« { } 2
'''WHILE''' DUP 5000 < '''REPEAT'''
'''IF''' 2 OVER 1 - ^ 1 - OVER SQ MOD NOT '''THEN''' SWAP OVER + SWAP '''END'''
NEXTPRIME
'''END''' DROP
» '<span style="color:blue">TASK</span>' STO
{{out}}
<pre>
1: { 1093 3511 }
</pre>
| |||