A255838 Smallest base-b Wieferich prime larger than b, where b = prime(n).
1093, 11, 20771, 491531, 71, 863, 46021, 43, 2481757
Offset: 1
Links
- R. Fischer, Thema: Fermatquotient B^(P-1) == 1 (mod P^2)
Crossrefs
Cf. A247072.
Programs
-
PARI
forprime(b=1, 20, forprime(p=b, , if(Mod(b, p^2)^(p-1)==1, print1(p, ", "); break({1}))))
Comments