A009505 - OEIS

%I #14 Apr 01 2017 22:22:16

%S 1,-2,-8,-184,-5568,-231552,-11751296,-596164352,-4342886400,

%T 10035384119296,3825733461393408,1266087931055144960,

%U 431690972162311487488,158346541732411570847744,63296242766270753646313472

%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_, May 31 2015 *)

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