A058370 Primes p such that p and p^2 have same digit sum.

19, 199, 379, 739, 1747, 1999, 3169, 3259, 4519, 4789, 4951, 5689, 5851, 5869, 6481, 6679, 7489, 8389, 9199, 10729, 12799, 12889, 13789, 14149, 14851, 14869, 15679, 17389, 17497, 17659, 17929, 22699, 26479, 26497, 26839, 28297, 28549, 29179

Offset: 1

Author

G. L. Honaker, Jr., Dec 17 2000

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A007953, A058369, A058852.

Programs

Mathematica

Select[Prime[Range[3300]],Total[IntegerDigits[#]]==Total[IntegerDigits[ #^2]]&] (* Harvey P. Dale, May 08 2011 *)