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,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

Cf. A003226.

Sequence in context: A092963 A191069 A045453 * A371670 A105910 A023259

Adjacent sequences: A052225 A052226 A052227 * A052229 A052230 A052231

Keyword

base,nonn

Author

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

Extensions

More terms from Jason Earls, Jan 02 2002

Status

approved