|
|
A294584
|
|
Expansion of Product_{k>=1} (1 - k^2*x^k)^(k^2).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|