login
A186427
Factorials (A000142) whose decimal expansion sets a record for having more of any single nonzero digit than its predecessors.
0
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
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Feb 21 2011
STATUS
approved