|
|
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.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
filter:= n -> isprime(convert(convert(n, base, 10), `+`)+convert(convert(n^2, base, 10), `+`)+convert(convert(n^3, base, 10), `+`)):
|
|
MATHEMATICA
|
Select[Range[1000], PrimeQ[Total[Flatten[IntegerDigits[#^{1, 2, 3}]]]]&] (* Harvey P. Dale, Jul 18 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|