OFFSET
1,1
EXAMPLE
a(3)=34: 34 -> 3^3+4^3=91 -> 9^3+1=730 -> 7^3+3^3+0=370.
MATHEMATICA
f[n_] := Plus@@(IntegerDigits[n]^3); Trajectory[n_] := Most[NestWhileList[f, n, UnsameQ , All]]; Select[Range[358], Last[Trajectory[#]] == 370&] (* Ant King, May 24 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Sep 17 2009
STATUS
approved