|
MATHEMATICA
|
nmax = 25; CoefficientList[Series[Product[(1+2^(k+1)*x^k)*(1+2^(k-1)*x^k), {k, 1, nmax}]^(1/3), {x, 0, nmax}], x] * 9^Range[0, nmax]
nmax = 25; CoefficientList[Series[Product[(1+2^(k+1)*(9*x)^k)*(1+2^(k-1)*(9*x)^k), {k, 1, nmax}]^(1/3), {x, 0, nmax}], x]
nmax = 25; CoefficientList[Series[(2*QPochhammer[-2, 2*x]*QPochhammer[-1/2, 2*x]/9)^(1/3), {x, 0, nmax}], x] * 9^Range[0, nmax]
nmax = 25; CoefficientList[Series[(2*QPochhammer[-2, x]*QPochhammer[-1/2, x]/9)^(1/3), {x, 0, nmax}], x] * 18^Range[0, nmax]
|