Wieferich primes: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added the computer programming language REXX.) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: typo) |
||
Line 192: | Line 192: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
<lang perl6>put " |
<lang perl6>put "Wieferich primes less than 5000: ", join ', ', ^5000 .grep: { .is-prime and not ( exp($_-1, 2) - 1 ) % .² };</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre>Wieferich primes less than 5000: 1093, 3511</pre> |
||
=={{header|REXX}}== |
=={{header|REXX}}== |