A009509 - OEIS

%I #13 Dec 23 2017 10:38:39

%S 1,4,32,264,-9216,-1548032,-190744448,-25395878400,-3862395551744,

%T -674521189158912,-133945803441307648,-29717777068093669376,

%U -7172117320170458939392,-1797012698406108143681536

%N Expansion of sin(tan(x))/cos(x).

%t 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 *)

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, Dec 23 2017