|
| |
|
|
A154877
|
|
Numbers whose trajectory under iteration of sum of cubes of digits eventually turns out to follow the cyclic iteration of 160,217,352
|
|
0
| |
|
|
16, 22, 61, 79, 97, 106, 115, 127, 151, 160, 172, 202, 217, 220, 229, 235, 238, 253, 271, 283, 292, 325, 328, 352, 382, 388, 445, 454, 457, 475, 511, 523, 532, 544, 547, 574, 601, 610, 709, 712, 721, 745, 754, 790, 823, 832, 838, 883, 907, 922, 970, 1006
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| All the numbers are of the form 3n+1
|
|
|
EXAMPLE
| Taking 79 as 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
|
|
|
MATHEMATICA
| okQ[n_]:=MemberQ[NestList[Total[IntegerDigits[#]^3]&, n, 20], 160]; Select[Range[1200], okQ] (* From Harvey P. Dale, June 20 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A102944 A058901 A059756 * A165338 A100999 A070572
Adjacent sequences: A154874 A154875 A154876 * A154878 A154879 A154880
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 16 2009
|
|
|
EXTENSIONS
| Added further terms Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 20 2009
Corrected and extended by Harvey P. Dale, June 20 2011.
|
| |
|
|
