OFFSET
0,2
FORMULA
G.f.: Product_{k>=1} 1/(1 - 2*(9*x)^k)^(1/3).
a(n) ~ c * 18^n / n^(2/3), where c = 1 / (Gamma(1/3) * QPochhammer(1/2)^(1/3)) = 0.564734286036917647642848904946237...
MATHEMATICA
nmax = 25; CoefficientList[Series[Product[1/(1-2*x^k), {k, 1, nmax}]^(1/3), {x, 0, nmax}], x] * 9^Range[0, nmax]
nmax = 25; CoefficientList[Series[Product[1/(1-2*(9*x)^k), {k, 1, nmax}]^(1/3), {x, 0, nmax}], x]
nmax = 25; CoefficientList[Series[(-1/QPochhammer[2, x])^(1/3), {x, 0, nmax}], x] * 9^Range[0, nmax]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Feb 27 2024
STATUS
approved