login
A270663
E.g.f.: Product_{k>=1} cos(x^k) [even terms only].
9
1, -1, -11, -181, -9239, -148681, -49402979, 6471717251, 42662277841, 658656817939439, 133531458273294661, 168943525289665105979, 19015164932231993967289, 62294481438650615377602599, 18546969159687034895328945901, 27398539855607539080934584895859
OFFSET
0,3
LINKS
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