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

1, -2, 0, -2, 6, -6, 4, -6, 48, -118, 96, -78, 470, -810, 396, -3050, 11062, -12678, 7072, -21454, 80034, -201490, 218940, -200658, 1536724, -3268842, 2079312, -7013266, 23140282, -28227510, 24133668, -56293910, 288065712, -704485126, 629862288, -1176210654

Offset

0,2

Links

Seiichi Manyama, Table of n, a(n) for n = 0..3000

Mathematica

nmax = 30; CoefficientList[Series[Exp[Sum[(1 - (-1)^j) / (j*(1 - 1/(2^(j-1)*x^j))), {j, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 25 2018 *)

Prog

(PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, ((1-2^k*x^k)/(1+2^k*x^k))^(1/2^k)))

Crossrefs

Cf. A303345, A303387, A303396, A303438.

Sequence in context: A295027 A225479 A156815 * A303345 A175802 A161803

Adjacent sequences: A303436 A303437 A303438 * A303440 A303441 A303442

Keyword

sign

Author

Seiichi Manyama, Apr 24 2018

Status

approved