OFFSET
1,1
COMMENTS
EXAMPLE
a(10)=29: 29 -> 2^3+9^3=737 -> 2*7^3+3^3=713 -> 7^3+1+3^3=371.
MATHEMATICA
f[n_] := Plus@@(IntegerDigits[n]^3); Trajectory[n_] := Most[NestWhileList[f, n, UnsameQ , All]]; Select[Range[191], Last[Trajectory[#]]==371 &] (* Ant King, May 24 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Sep 17 2009
STATUS
approved