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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 09 2002
EXTENSIONS
a(7) from Farideh Firoozbakht, Nov 27 2006
STATUS
approved