A307220 Record values in A039951.

1093, 66161, 46145917691

Offset: 1

Author

Felix Fröhlich, Mar 29 2019

Keywords

• nonn
• hard
• more
• bref

Examples

			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.
		

Crossrefs

Cf. A039951, A278611.

Programs

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++)

Formula

a(n) = A039951(A278611(n)).