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

1, 3, 33, 571, 897, -2454829, -541025183, -111302329717, -24150003737343, -5473538199891421, -1184916732110463071, -160650662732139980197, 73044130261960254992001, 109307715032177255302278131

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A092170 A083080 A002916 * A367427 A361212 A144756

Adjacent sequences: A009656 A009657 A009658 * A009660 A009661 A009662

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, Jan 02 2018

Status

approved