A321135 Smallest number with multiplicative persistence n in base 14.
0, 14, 35, 54, 81, 135, 667, 2532, 130883, 499407, 397912927, 18693488093783, 82092087348200531993, 3393205899117928970481629894345
Offset: 0
Crossrefs
Programs
-
Mathematica
With[{s = Array[Length@ FixedPointList[Times @@ IntegerDigits[#, 14] &, #] - 2 &, 14^5]}, Array[FirstPosition[s, #][[1]] &, Max@ s]] (* Michael De Vlieger, Nov 13 2018 *)
Comments