A121109 Trajectory of 26888999 under "x -> product of digits of x" map.
26888999, 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
NestList[Times@@IntegerDigits[#]&,26888999,9] (* Harvey P. Dale, Aug 16 2015 *)
Extensions
Edited by Charles R Greathouse IV, Aug 06 2010
Comments