|
| |
|
|
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: A151617 A082777 A072076 * A135634 A156505 A155674
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
|
| |
|
|
