A035935 Smallest number that always takes at least n steps to reach 0 under "k -> any product of 2 numbers whose concatenation is k".
0, 1, 11, 26, 39, 77, 666
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a(341)=5 since 341->123->36->18->8->0.
f[n_] := If[n<10, 0, With[{d = IntegerDigits[n]}, Table[FromDigits[Take[d, k]]*FromDigits[Drop[d, k]], {k, 1, Length[d]-1}] // Max]]; a[n_] := If[n == 0, 0, Length[FixedPointList[f, n]]-2]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Apr 03 2017 *)
Comments