OFFSET
1,2
COMMENTS
19 divides a(n) for n > 1.
MATHEMATICA
Join[{1}, Select[Range[10000000], PowerMod[20, #^2, #^3] == 1 &]] (* Robert Price, Apr 04 2020 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, May 14 2010
EXTENSIONS
a(4)-a(7) from Max Alekseyev, Oct 02 2010
STATUS
approved