OFFSET
0,2
FORMULA
MATHEMATICA
nmax = 40; CoefficientList[Series[Product[(1 + 2*x^k)/(1 - 2*x^k), {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 40; CoefficientList[Series[Exp[Sum[2^(2*k)/(2*k-1)*x^(2*k-1)/(1 - x^(2*k-1)), {k, 1, nmax}]], {x, 0, nmax}], x]
(O[x]^30 - QPochhammer[-2, x]/(3 QPochhammer[2, x]))[[3]] (* Vladimir Reshetnikov, Nov 20 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Aug 25 2015
STATUS
approved