A052228 Automorphic primes: p such that p^p ends with the digits of p.

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

Offset: 1

Author

G. L. Honaker, Jr., Jan 30 2000

Keywords

• base
• nonn

Examples

			11 is in the sequence because 11 is prime and 11^11=285311670611 ends in 11.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A003226.

Programs

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 *)

Extensions

More terms from Jason Earls, Jan 02 2002