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