OFFSET
1,2
MATHEMATICA
f[n_] := Max@ Most@DigitCount@ n; lst = {0}; k = 1; p = 1; mx = 1; While[ k < 1000, p = p*k; a = f@ p; If[a > mx, mx = a; AppendTo[lst, k]]; k++]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Feb 21 2011
STATUS
approved