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 A354678 #5 Jul 01 2022 22:15:23 %S A354678 3,24,167,1228,5250,8851,11922,14549,16863 %N A354678 a(n) = number of near-Wieferich primes with |A| <= 10000 less than 10^n. %C A354678 n | a(n) | A006880(n) | a(n)/A006880(n)*100 %C A354678 --------------------------------------------- %C A354678 1 | 3 | 4 | 75.000000 %C A354678 2 | 24 | 25 | 96.000000 %C A354678 3 | 167 | 168 | 99.404761 %C A354678 4 | 1228 | 1229 | 99.918633 %C A354678 5 | 5250 | 9592 | 54.733110 %C A354678 6 | 8851 | 78498 | 11.275446 %C A354678 7 | 11922 | 664579 | 1.793917 %C A354678 8 | 14549 | 5761455 | 0.252523 %C A354678 9 | 16863 | 50847534 | 0.033163 %o A354678 (PARI) a258367(n) = abs(centerlift(Mod(2, n^2)^((n-1)/2))\/n) \\ after _Charles R Greathouse IV_ in A258367 %o A354678 my(i=0, x=10); forprime(p=3, , if(p > x, print1(i, ", "); x=10*x); if(a258367(p) <= 10000, i++)) %Y A354678 Cf. A006880, A195988, A246568, A258367, A353141, A354675, A354676, A354677. %K A354678 nonn,hard,more %O A354678 1,1 %A A354678 _Felix Fröhlich_, Jun 02 2022