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

1, -1, -32, -2155, -259477, -48496477, -13001163543, -4732376829091, -2246495500625034, -1348407234549297356, -998562296547665810106, -894380299878766527522232, -953030926136814034550634393, -1191548000252369142490485950437

Offset: 0

Author

Seiichi Manyama, Nov 04 2017

Keywords

• sign

Links

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

Crossrefs

Column k=2 of A294605.

Programs

Mathematica

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

PARI

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