%I #16 Feb 08 2014 14:53:13
%S 1,-4,-24,-456,-11264,-289664,3000960,2697206272,625547980800,
%T 138214081974272,32824743592198144,8622090358801989632,
%U 2517001357223737327616,813249999853716681654272,288227689418308842574053376,110555226159597276214983917568
%N Expansion of sin(x)*cos(tan(x)).
%H Vincenzo Librandi, <a href="/A009535/b009535.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=40},Take[CoefficientList[Series[Sin[x]Cos[Tan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jun 18 2013 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E More terms from and prior Mathematica program replaced by _Harvey P. Dale_, Jun 18 2013
|