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

1, -2, -8, -184, -5568, -231552, -11751296, -596164352, -4342886400, 10035384119296, 3825733461393408, 1266087931055144960, 431690972162311487488, 158346541732411570847744, 63296242766270753646313472

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A009377 A181234 A156526 * A305737 A028368 A056990

Adjacent sequences: A009502 A009503 A009504 * A009506 A009507 A009508

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, May 31 2015

Status

approved