%I A052228
%S A052228 5,11,31,41,61,71,101,151,193,251,401,499,557,601,701,751,1151,1201,
%T A052228 1249,1301,1601,1693,1801,1901,1951,2351,2551,2801,3001,3301,3701,4001,
%U A052228 4201,4751,4801,4951,4999,5101,5351,5501,5701,5801,6101,6151,6301,6551
%N A052228 Automorphic primes: p such that p^p ends with the digits of p.
%e A052228 11 is in the sequence because 11 is prime and 11^11=285311670611 ends 
               in 11.
%t A052228 Select[ Prime@ Range@863, PowerMod[ #, #, 10^Floor[Log[10, # ] + 1]] 
               == # &] (* Robert G. Wilson v Sep 25 2006 *)
%Y A052228 Cf. A003226.
%Y A052228 Sequence in context: A114688 A092963 A045453 this_sequence A105910 A023259 
               A057470
%Y A052228 Adjacent sequences: A052225 A052226 A052227 this_sequence A052229 A052230 
               A052231
%K A052228 base,nonn
%O A052228 1,1
%A A052228 G. L. Honaker, Jr. (honak3r(AT)gmail.com), Jan 30 2000
%E A052228 More terms from Jason Earls (zevi_35711(AT)yahoo.com), Jan 02 2002