A009501 Expansion of sin(tan(sinh(x))).

1, 2, 8, -288, -40192, -4910720, -708052992, -124294481920, -26387620528128, -6672448330104832, -1974770538516348928, -671428546188604407808, -256837533734311788806144, -107628558926352254017470464

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[Tan[Sinh[x]]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Dec 01 2024 *)

Crossrefs

Sequence in context: A215651 A363180 A285850 * A013027 A012918 A012913

Adjacent sequences: A009498 A009499 A009500 * A009502 A009503 A009504

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, Dec 01 2024

Status

approved