

A085355


a(n) is the difference between A084321(n) and the (n1)th power of 2.


3



0, 1, 1, 2, 3, 3, 0, 11, 0, 24, 37, 47, 73, 90, 133, 135, 110, 133, 435, 795, 317, 1674, 1217, 1975, 4816, 6177, 9483, 11885, 17724, 19562, 22958, 39870, 48417, 85452, 114676, 210482, 133092, 194048, 524165, 451743, 1145779, 1292884, 1604772, 2859433, 4032594
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,4


COMMENTS

A084321 is the least number k such that between k! and (k+1)! there are n powers of 2.


LINKS



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



STATUS

approved



