OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..12456 (terms < 10^20)
EXAMPLE
Let s(n) = sum of digits of n. Then s(101)^3 = 8 and s(101^3) = s(1030301) = 8, so 101 belongs to the sequence.
MATHEMATICA
f[n_] := Apply[Plus, IntegerDigits[n]]; Select[Range[10^5], f[ #^3] == f[ # ]^3 &]
PROG
(PARI) is(n)=sumdigits(n^3)==sumdigits(n)^3 \\ Charles R Greathouse IV, Dec 19 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Apr 19 2002
STATUS
approved