OFFSET
1,1
EXAMPLE
For n = 2: The second prime p that is the smallest base-b Wieferich prime of a record size among integers b > 1 is 66161 for b = 6, so a(2) = 66161.
PROG
(PARI) smallest_w_prime(n) = forprime(p=1, , if(Mod(n, p^2)^(p-1)==1, return(p)))
my(r=0, b=2, swp=0); while(1, swp=smallest_w_prime(b); if(swp > r, print1(swp, ", "); r=swp); b++)
CROSSREFS
KEYWORD
nonn,hard,more,bref
AUTHOR
Felix Fröhlich, Mar 29 2019
STATUS
approved