|
Search: id:A046156
|
|
|
| A046156 |
|
Limit set for operation of repeatedly replacing a number by the sum of the cubes of its digits. |
|
+0
4
|
|
| 0, 1, 55, 133, 136, 153, 160, 217, 244, 250, 352, 370, 371, 407, 919, 1459
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
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.
Adjacent sequences: A046153 A046154 A046155 this_sequence A046157 A046158 A046159
Sequence in context: A080701 A039442 A063324 this_sequence A044306 A044687 A130745
|
|
KEYWORD
|
nonn,fini,full,base
|
|
AUTHOR
|
Richard Schroeppel (rschroe(AT)sandia.gov)
|
|
|
Search completed in 0.002 seconds
|
