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

1, 10, 26, 41, 44, 47, 62, 68, 89, 100, 104, 119, 125, 128, 131, 134, 143, 146, 155, 161, 167, 182, 188, 215, 224, 233, 242, 257, 260, 269, 275, 293, 311, 317, 323, 359, 368, 371, 377, 386, 401, 404, 410, 422, 431, 437, 440, 449, 452, 470, 494, 518, 521, 527, 545

Offset

1,2

Comments

Contains A011557. Except for those, all terms == 2 (mod 3). - Robert Israel, Jul 28 2020

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

filter:= n -> isprime(convert(convert(n, base, 10), `+`)+convert(convert(n^2, base, 10), `+`)+convert(convert(n^3, base, 10), `+`)):
select(filter, [$1..1000]); # Robert Israel, Jul 28 2020

Mathematica

Select[Range[1000], PrimeQ[Total[Flatten[IntegerDigits[#^{1, 2, 3}]]]]&] (* Harvey P. Dale, Jul 18 2015 *)

Crossrefs

Cf. A011557, A186278.

Sequence in context: A361259 A055042 A044071 * A054315 A113770 A223451

Adjacent sequences: A186276 A186277 A186278 * A186280 A186281 A186282

Keyword

nonn,easy,base

Author

Harvey P. Dale, Feb 16 2011

Status

approved