OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..213
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 *)
PROG
(PARI) N=20; x='x+O('x^N); Vec(prod(k=1, N, (1-k*x^k)^k^(2*k)))
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Nov 04 2017
STATUS
approved