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

1, -1, -16, -65, -79, 831, 4789, 15099, 6450, -162454, -922222, -2766802, -2885883, 17436735, 123724783, 429826690, 823702295, -482288111, -11124249861, -50746426204, -140257438535, -188609543978, 446818695084, 4049784546745, 15671762002156

Offset

0,3

Links

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

Mathematica

nmax = 30; CoefficientList[Series[Product[(1 - k^2*x^k)^(k^2), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 12 2017 *)

Prog

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

Crossrefs

Column k=2 of A294583.

Cf. A294586.

Sequence in context: A222748 A283271 A031446 * A041492 A257107 A249689

Adjacent sequences: A294581 A294582 A294583 * A294585 A294586 A294587

Keyword

sign

Author

Seiichi Manyama, Nov 03 2017

Status

approved