A278611 Bases b > 1 that set a new record for the size of the smallest base-b Wieferich prime.
2, 6, 34
Offset: 1
Examples
a(2) = 6, since the smallest base-6 Wieferich prime is 66161 and that prime is the second term with a record value in A039951.
Links
- R. Fischer, Thema: Fermatquotient B^(P-1) == 1 (mod P^2)
Programs
-
PARI
smallest_w_prime(n) = forprime(p=1, , if(Mod(n, p^2)^(p-1)==1, return(p))) my(r=0, b=2); while(1, if(smallest_w_prime(b) > r, print1(b, ", "); r=smallest_w_prime(b)); b++)
Comments