|
| |
|
|
A046156
|
|
Limit set for operation of repeatedly replacing a number by the sum of the cubes of its digits.
|
|
5
| |
|
|
0, 1, 55, 133, 136, 153, 160, 217, 244, 250, 352, 370, 371, 407, 919, 1459
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Range of A165330; A165330(a(n))=a(n); A165331(a(n))=0. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Sep 17 2009]
|
|
|
MATHEMATICA
| lst = {}; Do[a = NestWhile[Plus @@ (IntegerDigits@#^3) &, n, Unequal, All]; If[FreeQ[lst, a], AppendTo[lst, a]], {n, 10^4}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 19 2006)
|
|
|
CROSSREFS
| Cf. A046197, A113708.
Sequence in context: A080701 A039442 A063324 * A044306 A044687 A130745
Adjacent sequences: A046153 A046154 A046155 * A046157 A046158 A046159
|
|
|
KEYWORD
| nonn,fini,full,base
|
|
|
AUTHOR
| Richard Schroeppel (rschroe(AT)sandia.gov)
|
| |
|
|
