login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A009149
Expansion of e.g.f. cosh(sin(x)*x), even powers only.
1
1, 0, 12, -120, 2576, -106560, 4690752, -251957888, 17894058240, -1518819416064, 147193120578560, -16536681255671808, 2144498299945291776, -313806765843863552000, 51199709803672550916096
OFFSET
0,3
LINKS
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Nov 07 2013
STATUS
approved