A186278 Numbers n such that the sum of the digits of n plus the sum of the digits of n^2 is prime.

1, 4, 10, 28, 37, 40, 43, 58, 64, 73, 79, 82, 85, 91, 100, 109, 118, 124, 127, 139, 148, 154, 175, 181, 187, 208, 226, 229, 232, 235, 241, 247, 253, 265, 271, 277, 280, 286, 298, 304, 313, 316, 319, 322, 325, 331, 334, 349, 352, 355, 367, 370, 397, 400, 403, 415, 421, 424, 430, 433, 448, 454, 457, 469, 478, 481, 487, 505, 517, 526, 529, 532, 538, 544, 547, 571, 574, 577, 580, 586, 589, 598

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[1000], PrimeQ[Total[IntegerDigits[#]]+Total[IntegerDigits[#^2]]]&]

Crossrefs

Cf. A186279.

Sequence in context: A050262 A295208 A222453 * A367437 A367124 A222963

Adjacent sequences: A186275 A186276 A186277 * A186279 A186280 A186281

Keyword

nonn,easy,base

Author

Harvey P. Dale, Feb 16 2011

Status

approved