|
%I #8 Apr 14 2020 15:42:02
%S 2,5,8,11,14,17,20,23,26,29,32,35,38,41,44,50,53,56,59,62,65,68,71,80,
%T 83,86,92,95,101,104,107,110,113,116,119,122,125,128,131,134,137,140,
%U 143,146,149,152,155,158,161,164,167,170,173,176,179,182,185,188,191
%N Numbers that eventually reach the fixed point 371 under "x -> sum of cubes of digits of x" (see A055012).
%C A165330(a(n)) = 371;
%C Subsequence of A031179;
%C complement of A165335 with respect to A016789; a(n) mod 3 = 2.
%e a(10)=29: 29 -> 2^3+9^3=737 -> 2*7^3+3^3=713 -> 7^3+1+3^3=371.
%t 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 *)
%Y Cf. A031179, A046197, A035504, A008585, A165333.
%K base,nonn
%O 1,1
%A _Reinhard Zumkeller_, Sep 17 2009
|
