|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|