[go: up one dir, main page]

login
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
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
Column k=2 of A294583.
Cf. A294586.
Sequence in context: A222748 A283271 A031446 * A041492 A257107 A249689
KEYWORD
sign
AUTHOR
Seiichi Manyama, Nov 03 2017
STATUS
approved