Wieferich primes: Difference between revisions
Added Wren
m (Put a line break between Wikipedia template and beginning of task description so it is easier to read.) |
(Added Wren) |
||
Line 37:
{{out}}
<pre>Weiferich primes less than 5000: 1093, 3511</pre>
=={{header|Wren}}==
{{libheader|Wren-math}}
{{libheader|Wren-big}}
<lang ecmascript>import "/math" for Int
import "/big" for BigInt
var primes = Int.primeSieve(5000)
System.print("Weiferich primes < 5000:")
for (p in primes) {
var num = (BigInt.one << (p - 1)) - 1
var den = p * p
if (num % den == 0) System.print(p)
}</lang>
{{out}}
<pre>
Weiferich primes < 5000:
1093
3511
</pre>
|