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

1, -1, 0, 0, -4, 4, 0, 0, 6, -15, 9, 0, -4, 40, -36, 0, -15, -39, 90, -36, 64, -28, -180, 144, -96, 206, 106, -300, 148, -540, 332, 480, -232, 610, -1029, -189, 114, -86, 1880, -1068, 24, -921, -1545, 2466, -300, 2858, -1514, -3180, 976, -4121, 5590, 1995

Offset: 0

Author

Vaclav Kotesovec, Aug 30 2017

Keywords

• sign

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A073592, A291649, A291655.

Programs

Mathematica

nmax = 100; CoefficientList[Series[Product[(1-x^(k^2))^(k^2), {k,1,nmax}], {x,0,nmax}], x]