A009509 Expansion of sin(tan(x))/cos(x).

1, 4, 32, 264, -9216, -1548032, -190744448, -25395878400, -3862395551744, -674521189158912, -133945803441307648, -29717777068093669376, -7172117320170458939392, -1797012698406108143681536

Offset

0,2

Links

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

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, Dec 23 2017 *)

Crossrefs

Sequence in context: A013731 A092811 A363440 * A036725 A065089 A113329

Adjacent sequences: A009506 A009507 A009508 * A009510 A009511 A009512

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

Status

approved