login
A036841
Smallest number k such that floor[(the number of digits in k!) / k] is greater than any j < k.
0
2, 22, 266, 2712, 27175, 271819, 2718272
OFFSET
1,1
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 09 2002
EXTENSIONS
a(7) from Farideh Firoozbakht, Nov 27 2006
STATUS
approved