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

1, 2, 8, -120, -12160, -750080, -36334464, 147613952, 499312189440, 118002014031872, 18886517107687424, 1095225249188249600, -831828929736605794304, -517984611085464701173760

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A284967 A064111 A112094 * A147794 A027530 A228064

Adjacent sequences: A009655 A009656 A009657 * A009659 A009660 A009661

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, Oct 05 2023

Status

approved