A009038 Expansion of E.g.f. cos(sin(sinh(x))), even powers only.

1, -1, 1, 47, 1, -13409, 77441, 19836879, -535288319, -139742075329, -2263631905535, 1157041164813423, 85544399896958465, -10251042205544240161, -896378013566768664703, 524122354739233459190287

Offset

0,4

Links

G. C. Greubel, Table of n, a(n) for n = 0..250

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jul 31 2016 *)

Prog

(PARI) x='x+O('x^60); v=Vec(serlaplace(cos(sin(sinh(x))))); vector(#v\2, n, v[2*n-1]) \\ G. C. Greubel, Jul 22 2018

Crossrefs

Sequence in context: A159446 A116328 A340550 * A051319 A065610 A320342

Adjacent sequences: A009035 A009036 A009037 * A009039 A009040 A009041

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, Jul 31 2016

Status

approved