A009669 - OEIS

%I #13 Jun 08 2018 14:32:44

%S 1,-2,12,-296,8208,-317088,22384832,-1922265216,200049877248,

%T -28532108907008,4916900759571456,-987493645187344384,

%U 241526023834975735808,-69201642972421758361600

%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_, Jun 08 2018 *)

%K sign

%O 0,2

%A _R. H. Hardin_

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

%E Previous Mathematica program replaced by _Harvey P. Dale_, Jun 08 2018