Wieferich primes: Difference between revisions
add fermat
(→{{header|Ruby}}: Add Ruby) |
(add fermat) |
||
Line 273:
Wieferich primes less than 5000:
V{ 1093 3511 }
</pre>
=={{header|fermat}}==
<lang fermat>
Func Iswief(p)=Isprime(p)*Divides(p^2, 2^(p-1)-1).
for i=2 to 5000 do if Iswief(i) then !!i fi od
</lang>
{{out}}<pre>
1093
3511
</pre>
| |||