A325883 Bases b where exactly seven primes p with p < b exist such that p is a base-b Wieferich prime.
1451, 1482, 3145, 3147, 3277, 3365, 3376, 4339, 4357, 4365, 4393, 4625, 5649, 5850, 7282, 7624, 8641, 8956, 8957, 9149, 9449, 10040, 10093, 10538, 10835, 10889, 12001, 12476, 12907, 13253, 14005, 14027, 14032, 14500, 15029, 15229, 15797, 15857, 16249, 16757
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==7
Comments