OFFSET
1,1
COMMENTS
A proper subset of A052228.
LINKS
Eric Weisstein's World of Mathematics, Automorphic Number.
MATHEMATICA
fQ[n_] := PowerMod[n, n, 10^Floor[Log[10, n] + 1]] == n; p = 2; lst = {}; While[p < 10^12, If[ Mod[p, 10] != 1 && fQ@p, AppendTo[lst, p]; Print@p]; p = NextPrime@p]; lst
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jonathan Vos Post and Robert G. Wilson v, May 04 2010
STATUS
approved