A270663 E.g.f.: Product_{k>=1} cos(x^k) [even terms only].

1, -1, -11, -181, -9239, -148681, -49402979, 6471717251, 42662277841, 658656817939439, 133531458273294661, 168943525289665105979, 19015164932231993967289, 62294481438650615377602599, 18546969159687034895328945901, 27398539855607539080934584895859

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

Cf. A000262, A229263, A270294, A270662.

Sequence in context: A258381 A372279 A057618 * A068648 A209351 A287062

Adjacent sequences: A270660 A270661 A270662 * A270664 A270665 A270666

Keyword

sign

Author

Vaclav Kotesovec, Mar 21 2016

Status

approved