Wieferich primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (New draft task and Raku entry) |
(Add Factor) |
||
Line 19: | Line 19: | ||
;* [[oeis:A001220|OEIS A001220 - Wieferich primes]] |
;* [[oeis:A001220|OEIS A001220 - Wieferich primes]] |
||
<br> |
<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}}== |
=={{header|Raku}}== |