1,2

Table of n, a(n) for n=1..66.

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

Cf. A181686.

Sequence in context: A294999 A153051 A106636 * A050109 A294357 A329388

Adjacent sequences: A186424 A186425 A186426 * A186428 A186429 A186430

nonn,base

Robert G. Wilson v, Feb 21 2011

approved