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

1, 2, 4, 50, 98, 1830, 7264, 89326, 247252, 4520886, 20225372, 241414342, 786393322, 12744704970, 62688642800, 771140700226, 2635449405522, 40907909552038, 211134761381948, 2451388697035478, 9148627707018230, 143396849321918482, 743716982801639120

Offset

0,2

Links

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

Mathematica

nmax = 30; CoefficientList[Series[Exp[Sum[((-1)^j - 1) / (j*(1 - 1/(8^(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+8^k*x^k)/(1-8^k*x^k))^(1/8^k)))

Crossrefs

Cf. A303381, A303438, A303442.

Sequence in context: A181179 A175814 A303382 * A277034 A156498 A211169

Adjacent sequences: A303440 A303441 A303442 * A303444 A303445 A303446

Keyword

nonn

Author

Seiichi Manyama, Apr 24 2018

Status

approved