|
|
A262946
|
|
Expansion of Product_{k>=1} 1/(1-x^(3*k-1))^(3*k-1).
|
|
10
|
|
|
1, 0, 2, 0, 3, 5, 4, 10, 13, 15, 37, 31, 61, 87, 99, 178, 228, 286, 477, 552, 816, 1163, 1418, 2077, 2790, 3507, 5113, 6478, 8563, 11888, 15005, 20100, 27054, 34055, 46002, 59905, 76436, 102105, 130879, 168103, 221954, 281300, 363743, 472557, 597579, 772148
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (2*Zeta(3))^(5/36) * exp(3*d1 + (3/2)^(2/3) * Zeta(3)^(1/3) * n^(2/3)) / (3^(29/36) * Gamma(2/3) * n^(23/36)), where d1 = A263030 = Integral_{x=0..infinity} 1/x*(exp(-2*x)/(1 - exp(-3*x))^2 - 1/(9*x^2) - 1/(9*x) + exp(-x)/36) = -0.18870819197952853237641009864920797359211446726842922150941... . - Vaclav Kotesovec, Oct 08 2015
|
|
MAPLE
|
with(numtheory):
a:= proc(n) option remember; `if`(n=0, 1, add(add(d*
`if`(irem(d+3, 3, 'r')=2, 3*r-1, 0),
d=divisors(j))*a(n-j), j=1..n)/n)
end:
|
|
MATHEMATICA
|
nmax=60; CoefficientList[Series[Product[1/((1-x^(3k-1))^(3k-1)), {k, 1, nmax}], {x, 0, nmax}], x]
nmax=60; CoefficientList[Series[E^Sum[1/j*x^(2*j)*(2+x^(3*j))/(1-x^(3*j))^2, {j, 1, nmax}], {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|