A325882 Bases b where exactly six primes p with p < b exist such that p is a base-b Wieferich prime.
361, 476, 699, 977, 1121, 1145, 1293, 1667, 1745, 1868, 2157, 2382, 2468, 2665, 2793, 2897, 3038, 3149, 3526, 4033, 4643, 4746, 4789, 5032, 5073, 5567, 5651, 5660, 5777, 5824, 6205, 6320, 6346, 6377, 6421, 6732, 6769, 6949, 6957, 6976, 7318, 7669, 7793, 7937
Offset: 1
Keywords
Crossrefs
Programs
-
PARI
is(n) = my(i=0); forprime(p=1, n-1, if(Mod(n, p^2)^(p-1)==1, i++)); i==6
Comments