OFFSET
1,1
COMMENTS
A165330(a(n)) = 407.
EXAMPLE
a(4)=89: 89 -> 8^3+9^3=1241 -> 1+2^3+4^3+1=74 -> 7^3+4^3=407.
MATHEMATICA
f[n_] := Plus@@(IntegerDigits[n]^3); Trajectory[n_] := Most[NestWhileList[f, n, UnsameQ, All]]; Select[Range[1421], Last[Trajectory[#]]==407 &] (* Ant King, May 24 2013 *)
Select[Range[1500], FixedPoint[Total[IntegerDigits[#]^3]&, #, 100]==407&] (* Harvey P. Dale, Apr 17 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Sep 17 2009
STATUS
approved