Wieferich primes: Difference between revisions
Add Factor
Thundergnat (talk | contribs) (New draft task and Raku entry) |
(Add Factor) |
||
Line 19:
;* [[oeis:A001220|OEIS A001220 - Wieferich primes]]
<br>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-02-05}}
<lang factor>USING: io kernel math math.functions math.primes prettyprint
sequences ;
"Weiferich primes less than 5000:" print
5000 primes-upto [ [ 1 - 2^ 1 - ] [ sq divisor? ] bi ] filter .</lang>
{{out}}
<pre>
Weiferich primes less than 5000:
V{ 1093 3511 }
</pre>
=={{header|Raku}}==
| |||