|
|
A294606
|
|
Expansion of Product_{k>=1} (1 - k*x^k)^(k^k).
|
|
4
|
|
|
1, -1, -8, -73, -919, -13977, -253640, -5290184, -124681406, -3272865905, -94671665085, -2991846831531, -102566663464544, -3791541404744714, -150357943095635464, -6367699625807475503, -286854179220742344135, -13697182490105378305606
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 1 and a(n) = -(1/n) * Sum_{k=1..n} A294608(k) * a(n-k) for n > 0.
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[Product[(1 - k*x^k)^(k^k), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 05 2017 *)
|
|
PROG
|
(PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, (1-k*x^k)^k^k))
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|