A121110 Trajectory of 3778888999 under "x -> product of digits of x" map.
3778888999, 438939648, 4478976, 338688, 27648, 2688, 768, 336, 54, 20, 0
Offset: 1
Links
- N. J. A. Sloane, The persistence of a number, J. Recreational Math., 6 (1973), 97-98.
Crossrefs
Cf. A003001.
Programs
-
Mathematica
Most[FixedPointList[Times@@IntegerDigits[#]&,3778888999]] (* Harvey P. Dale, Jun 08 2017 *)
Extensions
Edited by Charles R Greathouse IV, Aug 05 2010
Comments