This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A052228 #15 Dec 15 2017 17:34:51 %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, %U A052228 4001,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. %H A052228 Harvey P. Dale, <a href="/A052228/b052228.txt">Table of n, a(n) for n = 1..500</a> %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 *) %t A052228 Select[Prime[Range[850]],PowerMod[#,#,10^IntegerLength[#]]==#&] (* _Harvey P. Dale_, Mar 05 2015 *) %Y A052228 Cf. A003226. %K A052228 base,nonn %O A052228 1,1 %A A052228 _G. L. Honaker, Jr._, Jan 30 2000 %E A052228 More terms from _Jason Earls_, Jan 02 2002