OFFSET
1,1
COMMENTS
No further terms up to 3.127*10^13.
LINKS
Amir Akbary and Sahar Siavashi, The Largest Known Wieferich Numbers, INTEGERS, 18(2018), A3. See Table 1 p. 5.
Richard Fischer, Fermat quotients B^(P-1) == 1 (mod P^2)
MATHEMATICA
Select[Prime[Range[5*10^7]], Mod[ 23^(# - 1) - 1, #^2] == 0 &] (* G. C. Greubel, Jan 18 2018 *)
Select[Prime[Range[93*10^9]], PowerMod[23, #-1, #^2]==1&] (* Harvey P. Dale, May 15 2018 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Mar 26 2007
STATUS
approved