OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..400
MATHEMATICA
Select[Range[10^6], Mod[13 + PowerMod[13, #, #], #] == 0 &] (* Giovanni Resta, Oct 21 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Missing a(2) and a(33)-a(35) from Giovanni Resta, Oct 21 2018
STATUS
approved