Wieferich primes: Difference between revisions

<lang perl6>put "WeiferichWieferich primes less than 5000: ", join ', ', ^5000 .grep: { .is-prime and not ( exp($_-1, 2) - 1 ) % .² };</lang>

<pre>WeiferichWieferich primes less than 5000: 1093, 3511</pre>