Wieferich primes: Difference between revisions
Added Arturo implementation
No edit summary |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 30:
1093 3511
</lang>
=={{header|Arturo}}==
<lang rebol>wieferich?: function [n][
and? -> prime? n
-> zero? (dec 2 ^ n-1) % n ^ 2
]
print ["Wieferich primes less than 5000:" select 1..5000 => wieferich?]</lang>
{{out}}
<pre>Wieferich primes less than 5000: [1093 3511]</pre>
=={{header|AWK}}==
<lang AWK>
Line 76 ⟶ 89:
Wieferich primes 1-4999: 2
</pre>
=={{header|BASIC}}==
==={{header|BASIC256}}===
| |||