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 A165333 #9 Apr 14 2020 15:41:35 %S A165333 7,19,34,37,43,58,67,70,73,76,85,88,91,109,118,124,139,142,145,148, %T A165333 154,157,166,169,175,178,181,184,187,190,193,196,214,223,226,232,241, %U A165333 247,259,262,268,274,277,286,295,304,307,319,322,334,340,343,346,355,358 %N A165333 Numbers that eventually reach the fixed point 370 under "x -> sum of cubes of digits of x" (see A055012). %C A165333 A165330(a(n)) = 370; %C A165333 Subsequence of A031179 and of A016777; a(n) mod 3 = 1. %e A165333 a(3)=34: 34 -> 3^3+4^3=91 -> 9^3+1=730 -> 7^3+3^3+0=370. %t A165333 f[n_] := Plus@@(IntegerDigits[n]^3); Trajectory[n_] := Most[NestWhileList[f, n, UnsameQ ,All]]; Select[Range[358], Last[Trajectory[#]] == 370&] (* _Ant King_, May 24 2013 *) %Y A165333 Cf. A031179, A046197, A035504, A008585, A165334, A165335. %K A165333 base,nonn %O A165333 1,1 %A A165333 _Reinhard Zumkeller_, Sep 17 2009