cp's OEIS Frontend

A154877 Numbers that eventually reach the cycle 160-217-352 under "x -> sum of cubes of digits of x" (see A055012).

%I A154877 #13 Oct 13 2018 12:52:18
%S A154877 16,22,61,79,97,106,115,127,151,160,172,202,217,220,229,235,238,253,
%T A154877 271,283,292,325,328,352,382,388,445,454,457,475,511,523,532,544,547,
%U A154877 574,601,610,709,712,721,745,754,790,823,832,838,883,907,922,970,1006
%N A154877 Numbers that eventually reach the cycle 160-217-352 under "x -> sum of cubes of digits of x" (see A055012).
%C A154877 All the numbers are of the form 3n+1.
%C A154877 A165330(a(n)) = 160;
%C A154877 Subsequence of A165336.
%e A154877 Taking 79 as an example; 7^3+9^3=1072, 1^3+0^3+7^3+2^3=352, 3^3+5^3+2^3=160, 1^3+6^3+0^3=217, 2^3+1^3+7^3=352.
%e A154877 a(15)=229: 229 -> 2*2^3+9^3=745 -> 7^3+4^3+5^3+1=532 -> 5^3+3^3+2^3=160 -> 217 -> 352 -> 160 ... .
%t A154877 okQ[n_]:=MemberQ[NestList[Total[IntegerDigits[#]^3]&,n,20],160]; Select[Range[1200],okQ] (* _Harvey P. Dale_, Jun 20 2011 *)
%Y A154877 Cf. A154820, A154877, A165330, A165336, A165337, A165339.
%K A154877 nonn,base
%O A154877 1,1
%A A154877 Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 16 2009
%E A154877 Further terms added by Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 20 2009
%E A154877 Corrected by _Reinhard Zumkeller_, Sep 17 2009.
%E A154877 Confirmed by _Harvey P. Dale_, Jun 20 2011
%E A154877 Entry revised by _N. J. A. Sloane_, Oct 13 2018 (merging older duplicate entry with this one).