A165334 Numbers that eventually reach the fixed point 371 under "x -> sum of cubes of digits of x" (see A055012).

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

Author

Reinhard Zumkeller, Sep 17 2009

Keywords

• base
• nonn

Comments

A165330(a(n)) = 371;

Subsequence of A031179;

complement of A165335 with respect to A016789; a(n) mod 3 = 2.

Examples

			a(10)=29: 29 -> 2^3+9^3=737 -> 2*7^3+3^3=713 -> 7^3+1+3^3=371.
		

Crossrefs

Cf. A031179, A046197, A035504, A008585, A165333.

Programs

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 *)