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

Author

Seiichi Manyama, Nov 03 2017

Keywords

• sign

Links

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

Crossrefs

Column k=2 of A294583.

Cf. A294586.

Programs

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 *)

PARI

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