OFFSET
1,2
MATHEMATICA
Join[{1}, Select[Range[1112*10^5], PowerMod[10, #^2, #^3]==1&]] (* Harvey P. Dale, Sep 10 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 06 2010
STATUS
approved