A009526 - OEIS

%I #13 Apr 01 2017 22:45:09

%S 1,0,32,-280,27520,-1072896,137702528,-12544190464,2268209053696,

%T -366953307820032,91839717688770560,-22828783486234329088,

%U 7664698989016298979328,-2683708217718933773352960

%N Expansion of sin(tanh(x))/cos(x).

%t With[{nn=30},Take[CoefficientList[Series[Sin[Tanh[x]]/Cos[x],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 30 2014 *)

%K sign

%O 0,3

%A _R. H. Hardin_

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

%E Prior Mathematica program replaced by _Harvey P. Dale_, Nov 30 2014