OFFSET
1,4
COMMENTS
A084321 is the least number k such that between k! and (k+1)! there are n powers of 2.
LINKS
Kevin Ryde, Table of n, a(n) for n = 1..1000
MATHEMATICA
LogBase2Stirling[n_] := Floor[ Log[2, 2 Pi n]/2 + n*Log[2, n/E] + Log[2, 1 + 1/(12n) + 1/(288n^2) - 139/(51840n^3) - 571/(2488320n^4) + 163879/(209018880n^5)]]; Do[k = 2^(n - 1); While[ LogBase2Stirling[k + 1] - LogBase2Stirling[k] < n, k++ ]; a[n] = k, {n, 1, 45}]; Table[ a[n] - 2^(n - 1), {n, 1, 45}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer and Robert G. Wilson v, Jun 24 2003
STATUS
approved