|
|
A052228
|
|
Automorphic primes: p such that p^p ends with the digits of p.
|
|
3
|
|
|
5, 11, 31, 41, 61, 71, 101, 151, 193, 251, 401, 499, 557, 601, 701, 751, 1151, 1201, 1249, 1301, 1601, 1693, 1801, 1901, 1951, 2351, 2551, 2801, 3001, 3301, 3701, 4001, 4201, 4751, 4801, 4951, 4999, 5101, 5351, 5501, 5701, 5801, 6101, 6151, 6301, 6551
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|