login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A262947 Expansion of Product_{k>=1} 1/(1-x^(3*k-2))^(3*k-2). 9
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 3 08:21 EDT 2021. Contains 346435 sequences. (Running on oeis4.)