

A036841


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


0




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 A264836 A135634
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



