A009662 Expansion of tan(sin(x))*cos(x).

1, -2, -8, -16, 2304, 68352, -843776, -221382656, -9865887744, 888186732544, 200433787207680, 8060855544971264, -3814697273321848832, -890946236332166348800, 9668703713250158575616

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A101658 A308613 A006573 * A279243 A162218 A103086

Adjacent sequences: A009659 A009660 A009661 * A009663 A009664 A009665

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, Dec 06 2015

Status

approved