login
A307220
Record values in A039951.
2
1093, 66161, 46145917691
OFFSET
1,1
FORMULA
a(n) = A039951(A278611(n)).
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
Sequence in context: A266829 A203858 A115192 * A091674 A022197 A259909
KEYWORD
nonn,hard,more,bref
AUTHOR
Felix Fröhlich, Mar 29 2019
STATUS
approved