OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..463 (terms < 2^(128/3))
EXAMPLE
n = 49639 is in the sequence because sod(n) = 31, sod(n^2) = 25 and sod(n^3) = 28. Here n^2 = 2464030321 and n^3 = 122312001104119.
MATHEMATICA
sod[n_]:=Plus@@ IntegerDigits@ n; Select[Range[10^6], sod[#^3] < sod@# && sod[#^2] < sod@# &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 26 2015
STATUS
approved