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 A128669 #19 Apr 22 2025 12:19:12 %S A128669 13,2481757,13703077,15546404183,2549536629329 %N A128669 Primes p such that p^2 divides 23^(p-1) - 1. %C A128669 No further terms up to 3.127*10^13. %D A128669 Paulo Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004. See p. 233. %H A128669 Amir Akbary and Sahar Siavashi, <a href="http://math.colgate.edu/~integers/s3/s3.Abstract.html">The Largest Known Wieferich Numbers</a>, INTEGERS, 18(2018), A3. See Table 1 p. 5. %H A128669 Richard Fischer, <a href="http://www.fermatquotient.com/FermatQuotienten/">Fermat quotients B^(P-1) == 1 (mod P^2)</a> %t A128669 Select[Prime[Range[5*10^7]], Mod[ 23^(# - 1) - 1, #^2] == 0 &] (* _G. C. Greubel_, Jan 18 2018 *) %t A128669 Select[Prime[Range[93*10^9]],PowerMod[23,#-1,#^2]==1&] (* _Harvey P. Dale_, May 15 2018 *) %Y A128669 Cf. A001220, A014127, A123692, A123693, A128667, A128668, A090968, A039951 %K A128669 hard,more,nonn %O A128669 1,1 %A A128669 _Alexander Adamchuk_, Mar 26 2007