A036841 Smallest number k such that floor[(the number of digits in k!) / k] is greater than any j < k.

2, 22, 266, 2712, 27175, 271819, 2718272

Offset

1,1

Links

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

Mathematica

a = -1; Do[b = Floor[(Floor[Log[10, n! ]] + 1)/n]; If[b > a, Print[n]; a = b], {n, 2, 10^6} ]

Crossrefs

Sequence in context: A229465 A072076 A226706 * A307852 A365529 A264836

Adjacent sequences: A036838 A036839 A036840 * A036842 A036843 A036844

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 09 2002

Extensions

a(7) from Farideh Firoozbakht, Nov 27 2006

Status

approved