|
|
A327044
|
|
Expansion of Product_{k>=1} 1/((1 - x^k) * (1 - x^(2*k)) * (1 - x^(3*k)) * (1 - x^(4*k)) * (1 - x^(5*k))).
|
|
5
|
|
|
1, 1, 3, 5, 11, 17, 33, 50, 89, 135, 223, 332, 530, 775, 1190, 1724, 2576, 3677, 5380, 7586, 10895, 15203, 21480, 29666, 41373, 56593, 77965, 105755, 144155, 193947, 261894, 349719, 468193, 620910, 824743, 1086661, 1433205, 1876865, 2459100, 3202155, 4170043
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
In general, for fixed m>=1, if g.f. = Product_{k>=1} (Product_{j=1..m} 1/(1 - x^(j*k))), then a(n,m) ~ sqrt(Gamma(m+1)) * HarmonicNumber(m)^((m+1)/4) * exp(Pi*sqrt(2*HarmonicNumber(m)*n/3)) / (2^((3*m+5)/4) * 3^((m+1)/4) * n^((m+3)/4)).
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ 137^(3/2) * exp(sqrt(137*n/10)*Pi/3) / (2880*sqrt(6)*n^2).
|
|
MATHEMATICA
|
nmax = 50; CoefficientList[Series[Product[1/((1 - x^k) * (1 - x^(2*k)) * (1 - x^(3*k)) * (1 - x^(4*k)) * (1 - x^(5*k))), {k, 1, nmax}], {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|