OFFSET
1,2
COMMENTS
No other terms below 10^15. - Max Alekseyev, Oct 30 2018
Some larger terms: 6584692157923407917184426, 3226231185229904054184099310127719809, 30643479515551752620928357020812679775, 5890087594520845596744547263586007316572563275. - Max Alekseyev, Oct 30 2018
MATHEMATICA
Join[{1, 2, 3, 6}, Select[Range[1, 9000], Mod[13^#, #] == 7 &]] (* G. C. Greubel, Nov 19 2017 *)
Join[{1, 2, 3, 6}, Select[Range[10000000], PowerMod[13, #, #] == 7 &]] (* Robert Price, Apr 10 2020 *)
PROG
(PARI) isok(n) = Mod(13, n)^n == 7; \\ Michel Marcus, Nov 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 19 2006
EXTENSIONS
More terms from Ryan Propper, Mar 30 2007
Terms 1,2,3,6 prepended and a(27)-a(34) added by Max Alekseyev, Jun 30 2011, Oct 30 2018
STATUS
approved