This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A165334 #8 Apr 14 2020 15:42:02 %S A165334 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 A165334 83,86,92,95,101,104,107,110,113,116,119,122,125,128,131,134,137,140, %U A165334 143,146,149,152,155,158,161,164,167,170,173,176,179,182,185,188,191 %N A165334 Numbers that eventually reach the fixed point 371 under "x -> sum of cubes of digits of x" (see A055012). %C A165334 A165330(a(n)) = 371; %C A165334 Subsequence of A031179; %C A165334 complement of A165335 with respect to A016789; a(n) mod 3 = 2. %e A165334 a(10)=29: 29 -> 2^3+9^3=737 -> 2*7^3+3^3=713 -> 7^3+1+3^3=371. %t A165334 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 A165334 Cf. A031179, A046197, A035504, A008585, A165333. %K A165334 base,nonn %O A165334 1,1 %A A165334 _Reinhard Zumkeller_, Sep 17 2009