|
|
A305082
|
|
G.f.: Sum_{k>=1} x^k/(1-x^k) * Product_{k>=1} (1+x^k).
|
|
7
|
|
|
0, 1, 3, 5, 9, 13, 20, 28, 39, 54, 71, 94, 124, 159, 201, 258, 322, 401, 499, 613, 750, 918, 1110, 1340, 1617, 1935, 2308, 2752, 3261, 3854, 4554, 5350, 6273, 7348, 8572, 9983, 11612, 13460, 15578, 18007, 20761, 23894, 27473, 31511, 36090, 41296, 47152, 53767
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ 3^(1/4)*(2*gamma + log(12*n/Pi^2)) * exp(Pi*sqrt(n/3)) / (4*Pi*n^(1/4)), where gamma is the Euler-Mascheroni constant A001620.
|
|
MATHEMATICA
|
nmax = 50; CoefficientList[Series[Sum[x^k/(1-x^k), {k, 1, nmax}]*Product[1+x^k, {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 50; CoefficientList[Series[((Log[1-x] + QPolyGamma[0, 1, x]) * QPochhammer[-1, x]) / (2*Log[x]), {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|