A009471 Expansion of sin(sin(sinh(x))).

1, -1, -7, 111, 1073, -94337, -2853783, 123530351, 9169805409, -451648395649, -48860758779943, 9373388534437103, 1703756816472285841, -102065089351854821633, -63965097809194514212791

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A371315 A212371 A112463 * A301990 A193441 A355458

Adjacent sequences: A009468 A009469 A009470 * A009472 A009473 A009474

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 23 2016

Status

approved