|
%I #13 Apr 01 2017 13:53:10
%S 1,1,0,-4,-8,32,216,-264,-7552,-9216,349568,1548032,-20281216,
%T -190744448,1350879232,25395878400,-84211707904,-3862395551744,
%U -286327484416,674521189158912,2529465981566976,-133945803441307648
%N Expansion of exp(tanh(x))/cosh(x).
%t With[{nn=30},CoefficientList[Series[Exp[Tanh[x]]/Cosh[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 13 2014 *)
%K sign,easy
%O 0,4
%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 13 2014
|
