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,1

Links

Table of n, a(n) for n=1..38.

Mathematica

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

Crossrefs

Cf. A007953, A058369, A058852.

Sequence in context: A097445 A238697 A256639 * A230012 A164890 A066007

Adjacent sequences: A058367 A058368 A058369 * A058371 A058372 A058373

Keyword

base,easy,nonn

Author

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

Status

approved