OFFSET
1,1
COMMENTS
Equivalently, a(n) is the least integer k for which there is an integer J such that n^k < e^J < (n+1)^k; or, equivalently, such that there is a rational number H with denominator k for which log(n) < H < log(n+1).
MATHEMATICA
Table[k=1; While[Floor[k*Log[n+1]] <= k*Log[n], k++]; k, {n, 100}]
PROG
(Sage) A183163 = lambda n: next(k for k in IntegerRange(1, infinity) if floor(k*log(n+1)) > k*log(n)) # D. S. McNeil, Dec 28 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 27 2010
STATUS
approved