A320721
Smallest number with multiplicative persistence n in base 15.
Original entry on oeis.org
0, 15, 38, 58, 89, 582, 1964, 19526, 596667, 30104309, 140410607143, 3753516452901780134
Offset: 0
-
With[{s = Array[Length@ FixedPointList[Times @@ IntegerDigits[#, 15] &, #] - 2 &, 15^5]}, Array[FirstPosition[s, #][[1]] &, Max@ s]] (* Michael De Vlieger, Nov 13 2018 *)
A321135
Smallest number with multiplicative persistence n in base 14.
Original entry on oeis.org
0, 14, 35, 54, 81, 135, 667, 2532, 130883, 499407, 397912927, 18693488093783, 82092087348200531993, 3393205899117928970481629894345
Offset: 0
-
With[{s = Array[Length@ FixedPointList[Times @@ IntegerDigits[#, 14] &, #] - 2 &, 14^5]}, Array[FirstPosition[s, #][[1]] &, Max@ s]] (* Michael De Vlieger, Nov 13 2018 *)
Showing 1-2 of 2 results.
Comments