A009149 Expansion of e.g.f. cosh(sin(x)*x), even powers only.

1, 0, 12, -120, 2576, -106560, 4690752, -251957888, 17894058240, -1518819416064, 147193120578560, -16536681255671808, 2144498299945291776, -313806765843863552000, 51199709803672550916096

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cosh[Sin[x]*x], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Nov 07 2013 *)

Crossrefs

Sequence in context: A174561 A009078 A221493 * A010570 A012374 A012615

Adjacent sequences: A009146 A009147 A009148 * A009150 A009151 A009152

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Nov 07 2013

Status

approved