A009493 Expansion of sin(sinh(x))*x.

0, 2, 0, -48, -448, 640, 152064, 4331264, 46686208, -2948087808, -254321049600, -10904188190720, -96102216892416, 35338539139923968, 4288100201376251904, 288606238238197678080, 4574915805064126791680

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A326718 A375415 A097173 * A009718 A198799 A156501

Adjacent sequences: A009490 A009491 A009492 * A009494 A009495 A009496

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, Aug 08 2016

Status

approved