login
A165334
Numbers that eventually reach the fixed point 371 under "x -> sum of cubes of digits of x" (see A055012).
6
2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35, 38, 41, 44, 50, 53, 56, 59, 62, 65, 68, 71, 80, 83, 86, 92, 95, 101, 104, 107, 110, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 146, 149, 152, 155, 158, 161, 164, 167, 170, 173, 176, 179, 182, 185, 188, 191
OFFSET
1,1
COMMENTS
A165330(a(n)) = 371;
Subsequence of A031179;
complement of A165335 with respect to A016789; a(n) mod 3 = 2.
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