OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..224
MATHEMATICA
nmax = 20; Table[(Range[0, 2*nmax]! * CoefficientList[Series[Product[Cos[x^k], {k, 1, 2*nmax}], {x, 0, 2*nmax}], x])[[2*n + 1]], {n, 0, nmax}]
CROSSREFS
KEYWORD
sign
AUTHOR
_Vaclav Kotesovec_, Mar 21 2016
STATUS
approved