A121106 Trajectory of 6788 under "x -> product of digits of x" map.
6788, 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[#]&,6788,6] (* Harvey P. Dale, Nov 19 2021 *)
Extensions
Edited by Charles R Greathouse IV, Aug 06 2010
Comments