OFFSET
1,2
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..112
MATHEMATICA
Join[{1, 2, 4, 8}, Select[Range[1, 9000], Mod[13^#, #] == 9 &]] (* G. C. Greubel, Nov 19 2017 *)
PROG
(PARI) isok(n) = Mod(13, n)^n == 9; \\ Michel Marcus, Nov 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 19 2006
EXTENSIONS
More terms from Ryan Propper, Nov 05 2006
Terms 1,2,4,8 prepended by Max Alekseyev, Jun 28 2011
STATUS
approved