OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
MATHEMATICA
nmax = 100; CoefficientList[Series[Product[(1-x^(3*k+2))^(3*k+2), {k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 15 2017 *)
PROG
(PARI) x='x+O('x^100); Vec(prod(k=0, 100, (1 - x^(3*k + 2))^(3*k + 2))) \\ Indranil Ghosh, Apr 15 2017
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Apr 15 2017
STATUS
approved