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 A331426 #28 Apr 22 2025 12:20:09 %S A331426 2,3,77867,76407520781 %N A331426 Prime numbers p such that p^2 divides 37^(p-1) - 1. %C A331426 a(4) from Fischer link. - _M. F. Hasler_, Jan 16 2020 %D A331426 Paulo Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004. See p. 233. %H A331426 Richard Fischer, <a href="http://www.fermatquotient.com/FermatQuotienten/FermQ_Sort.txt">Fermatquotienten von 2 bis 1052</a>, Dec 19 2019 %H A331426 Wikipedia, <a href="https://en.wikipedia.org/wiki/Wieferich_prime">Wieferich prime</a> %t A331426 Select[Range[10^5], PrimeQ[#] && PowerMod[37, # - 1, #^2] == 1 &] (* _Amiram Eldar_, May 05 2021 *) %o A331426 (PARI) forprime(p=2, 1e8, if(Mod(37, p^2)^(p-1)==1, print1(p", "))) %Y A331426 Wieferich primes to base b: A001220 (b=2), A014127 (b=3), A123692 (b=5), A123693 (b=7), A128667 (b=13), A128668 (b=17), A090968 (b=19), A128669 (b=23), A331424 (b=31), this sequence (b=37), A331427 (b=41). %Y A331426 Cf. A039951. %K A331426 nonn,more %O A331426 1,1 %A A331426 _Seiichi Manyama_, Jan 16 2020