A009472 Expansion of sin(sin(tan(x))).

1, 0, -12, -248, -3504, 115904, 17130688, 265254272, -452604387072, -186145181366272, -61549828575435776, -19962789503984048128, -6701962036325158170624, -2365314657819650153562112

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A220216 A126687 A064749 * A012066 A239777 A245919

Adjacent sequences: A009469 A009470 A009471 * A009473 A009474 A009475

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, Apr 15 2018

Status

approved