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 A354676 #5 Jul 01 2022 22:14:21 %S A354676 3,24,105,154,213,243,268,288,307 %N A354676 a(n) = number of near-Wieferich primes with |A| <= 100 less than 10^n. %C A354676 n | a(n) | A006880(n) | a(n)/A006880(n)*100 %C A354676 -------------------------------------------- %C A354676 1 | 3 | 4 | 75.000000 %C A354676 2 | 24 | 25 | 96.000000 %C A354676 3 | 105 | 168 | 62.500000 %C A354676 4 | 154 | 1229 | 12.530512 %C A354676 5 | 213 | 9592 | 2.220600 %C A354676 6 | 243 | 78498 | 0.309562 %C A354676 7 | 268 | 664579 | 0.040326 %C A354676 8 | 288 | 5761455 | 0.004998 %C A354676 9 | 307 | 50847534 | 0.000603 %o A354676 (PARI) a258367(n) = abs(centerlift(Mod(2, n^2)^((n-1)/2))\/n) \\ after _Charles R Greathouse IV_ in A258367 %o A354676 my(i=0, x=10); forprime(p=3, , if(p > x, print1(i, ", "); x=10*x); if(a258367(p) <= 100, i++)) %Y A354676 Cf. A006880, A195988, A246568, A258367, A353141, A354675, A354677, A354678. %K A354676 nonn,hard,more %O A354676 1,1 %A A354676 _Felix Fröhlich_, Jun 02 2022