A255203 Primes p for which no bases b with 1 < b < p exist such that p is a base b Wieferich prime.
2, 3, 5, 7, 13, 17, 19, 23, 31, 41, 47, 53, 61, 67, 73, 83, 89, 101, 107, 139, 149, 157, 167, 173, 179, 193, 227, 239, 251, 271, 277, 311, 317, 337, 383, 389, 409, 431, 443, 457, 467, 479, 491, 503, 541, 569, 587, 593, 613, 643, 677, 683, 691, 709, 719, 733
Offset: 1
Keywords
Programs
-
PARI
forprime(p=1, , b=2; i=0; while(b < p, if(Mod(b, p^2)^(p-1)==1, i++); b++); if(i==0, print1(p, ", ")))
Comments