A262947 Expansion of Product_{k>=1} 1/(1-x^(3*k-2))^(3*k-2).

1, 1, 1, 1, 5, 5, 5, 12, 22, 22, 32, 60, 80, 93, 161, 231, 282, 404, 616, 775, 1041, 1535, 2037, 2600, 3708, 5029, 6411, 8710, 11968, 15315, 20189, 27444, 35619, 45939, 61605, 80422, 102932, 135481, 177391, 226263, 293561, 382984, 488826, 626558, 812750

Offset

0,5

Comments

A262946(n)/A262947(n) ~ exp(3*(d1-d2)) * Gamma(1/3)^3 / (2*Pi)^(3/2), where d1 = A263030 and d2 = A263031. - Vaclav Kotesovec, Oct 08 2015

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..5000

Vaclav Kotesovec, A method of finding the asymptotics of q-series based on the convolution of generating functions, arXiv:1509.08708 [math.CO], Sep 30 2015

Vaclav Kotesovec, Graph - The asymptotic ratio (120000 terms)

Formula

a(n) ~ 2^(23/36) * sqrt(Pi) * Zeta(3)^(5/36) * exp(3*d2 + (3/2)^(2/3) * Zeta(3)^(1/3) * n^(2/3)) / (3^(11/36) * Gamma(1/3)^2 * n^(23/36)), where d2 = A263031 = Integral_{x=0..infinity} 1/x*(exp(-x)/(1 - exp(-3*x))^2 - 1/(9*x^2) - 2/(9*x) - 5*exp(-x)/36) = -0.01453742918328403360502029450226209036054149... . - 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')=1, 3*r-2, 0),
       d=divisors(j))*a(n-j), j=1..n)/n)
    end:
seq(a(n), n=0..45);  # Alois P. Heinz, Oct 05 2015

Mathematica

nmax=60; CoefficientList[Series[Product[1/((1-x^(3k-2))^(3k-2)), {k, 1, nmax}], {x, 0, nmax}], x]
nmax=60; CoefficientList[Series[E^Sum[1/j*x^j*(1+2*x^(3*j))/(1-x^(3*j))^2, {j, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A035382, A262877, A262883, A262923, A262946.

Sequence in context: A214925 A101597 A119991 * A265821 A266953 A224165

Adjacent sequences: A262944 A262945 A262946 * A262948 A262949 A262950

Keyword

nonn

Author

Vaclav Kotesovec, Oct 05 2015

Status

approved