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 A058370 #7 Nov 21 2013 12:47:26 %S A058370 19,199,379,739,1747,1999,3169,3259,4519,4789,4951,5689,5851,5869, %T A058370 6481,6679,7489,8389,9199,10729,12799,12889,13789,14149,14851,14869, %U A058370 15679,17389,17497,17659,17929,22699,26479,26497,26839,28297,28549,29179 %N A058370 Primes p such that p and p^2 have same digit sum. %t A058370 Select[Prime[Range[3300]],Total[IntegerDigits[#]]==Total[IntegerDigits[ #^2]]&] (* _Harvey P. Dale_, May 08 2011 *) %Y A058370 Cf. A007953, A058369, A058852. %K A058370 base,easy,nonn %O A058370 1,1 %A A058370 _G. L. Honaker, Jr._, Dec 17 2000