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 A244260 #19 May 17 2019 14:43:23 %S A244260 5,7,37,331,33923,1284043 %N A244260 Primes p such that p^2 divides 18^(p-1) - 1. %C A244260 Base 18 Wieferich primes. According to Richard Fischer there is no other term up to approximately 5*10^13. %H A244260 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 A244260 R. Fischer, <a href="http://www.fermatquotient.com/FermatQuotienten/FermQ_Sort">Thema: Fermatquotient B^(P-1) == 1 (mod P^2)</a> %t A244260 Select[Prime[Range[1000000]], PowerMod[18, # - 1, #^2] == 1 &] (* _Robert Price_, May 17 2019 *) %o A244260 (PARI) forprime(n=2, 10^9, if(Mod(18, n^2)^(n-1)==1, print1(n, ", "))); %Y A244260 Cf. A001220, A014127, A123692, A212583, A123693, A045616, A111027, A128667, A234810, A242741, A128668, A090968, A242982, A039951, A096082. %K A244260 nonn,hard,more %O A244260 1,1 %A A244260 _Felix Fröhlich_, Jun 24 2014