Wieferich primes: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: Add Ruby) |
(add fermat) |
||
Line 273: | Line 273: | ||
Wieferich primes less than 5000: |
Wieferich primes less than 5000: |
||
V{ 1093 3511 } |
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> |
</pre> |
||