A009674 - OEIS

%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