A121105 Trajectory of 679 under "x -> product of digits of x" map.
679, 378, 168, 48, 32, 6
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[#]&,679,7]] (* Harvey P. Dale, Sep 13 2024 *)
Extensions
Edited by Charles R Greathouse IV, Aug 05 2010
Comments