A009538 Expansion of sin(x)*cosh(sin(x)).

1, 2, -24, 104, 1792, -68608, 1203840, 5570816, -1636425728, 86205304832, -2289265803264, -73881736609792, 15846608494821376, -1309579649460404224, 56807804221374332928, 2613072244764189655040, -930940291170336707182592

Offset

0,2

Links

Table of n, a(n) for n=0..16.

Mathematica

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

Crossrefs

Sequence in context: A145889 A212568 A121199 * A009556 A179824 A034310

Adjacent sequences: A009535 A009536 A009537 * A009539 A009540 A009541

Keyword

sign

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Nov 23 2023

Status

approved