Wieferich primes: Difference between revisions

(add PicoLisp)
Line 658:
 
Found 2 Wieferich primes that are < 5,000
</pre>
 
=={{header|Ruby}}==
<lang ruby>require "prime"
 
puts Prime.each(5000).select{|p| 2.pow(p-1 ,p*p) == 1 }
</lang>
{{out}}
<pre>1093
3511
</pre>
 
1,149

edits