OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..500
EXAMPLE
11 is in the sequence because 11 is prime and 11^11=285311670611 ends in 11.
MATHEMATICA
Select[ Prime@ Range@863, PowerMod[ #, #, 10^Floor[Log[10, # ] + 1]] == # &] (* Robert G. Wilson v Sep 25 2006 *)
Select[Prime[Range[850]], PowerMod[#, #, 10^IntegerLength[#]]==#&] (* Harvey P. Dale, Mar 05 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
G. L. Honaker, Jr., Jan 30 2000
EXTENSIONS
More terms from Jason Earls, Jan 02 2002
STATUS
approved