OFFSET
1,2
COMMENTS
13 divides a(n) for n > 1.
MATHEMATICA
Join[{1}, Select[Range[2000000], PowerMod[14, #^2, #^3] == 1 &]] (* Robert Price, Mar 31 2020 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, May 14 2010
EXTENSIONS
More terms from Max Alekseyev, Oct 02 2010
STATUS
approved