This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A307220 #14 May 08 2019 06:05:26 %S A307220 1093,66161,46145917691 %N A307220 Record values in A039951. %F A307220 a(n) = A039951(A278611(n)). %e A307220 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. %o A307220 (PARI) smallest_w_prime(n) = forprime(p=1, , if(Mod(n, p^2)^(p-1)==1, return(p))) %o A307220 my(r=0, b=2, swp=0); while(1, swp=smallest_w_prime(b); if(swp > r, print1(swp, ", "); r=swp); b++) %Y A307220 Cf. A039951, A278611. %K A307220 nonn,hard,more,bref %O A307220 1,1 %A A307220 _Felix Fröhlich_, Mar 29 2019