|
%I #13 Apr 02 2017 11:55:07
%S 1,-2,-28,1160,-3504,-3908896,360691008,14544047232,-11198480094976,
%T 1531305962216960,340347851378082816,-234547726326061201408,
%U 32383387692585279868928,30186184832886791121723392
%N Expansion of tan(sin(x)/cosh(x)).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[x]/Cosh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Mar 06 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_, Mar 06 2017
|
