Revision as of 23:13, 5 July 2021 (view source) Trizen (talk \| contribs) (Added Sidef) ← Older edit		Revision as of 23:18, 5 July 2021 (view source) Trizen (talk \| contribs) m (→‎{{header\|Perl}}: better efficiency) Newer edit →
Line 386: {{libheader\|ntheory}} <lang perl>use feature 'say'; use ntheory 'qw(is_prime' powmod);▼ ~~use bignum;~~ ▲use ntheory 'is_prime'; say 'Wieferich primes less than 5000: ' . join ', ', grep { is_prime($_) and ~~not~~ powmod(2, ~~(2(~~$_-1~~) -1) %~~, $_2$_) )== 1 } 1..5000;</lang> {{out}} <pre>Wieferich primes less than 5000: 1093, 3511</pre>

Wieferich primes: Difference between revisions

Wieferich primes (view source)