A186427 Factorials (A000142) whose decimal expansion sets a record for having more of any single nonzero digit than its predecessors.

0, 9, 13, 16, 22, 31, 33, 43, 47, 55, 56, 66, 71, 91, 96, 102, 119, 139, 164, 167, 175, 199, 200, 242, 247, 258, 259, 271, 293, 302, 310, 340, 352, 356, 366, 368, 385, 392, 413, 419, 452, 491, 507, 522, 527, 543, 547, 598, 658, 667, 688, 722, 746, 772, 801, 810, 811, 816, 832, 837, 895, 906, 909, 935, 971, 975

Offset

1,2

Links

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

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

Cf. A181686.

Sequence in context: A294999 A153051 A106636 * A050109 A294357 A329388

Adjacent sequences: A186424 A186425 A186426 * A186428 A186429 A186430

Keyword

nonn,base

Author

Robert G. Wilson v, Feb 21 2011

Status

approved