|
%I #10 May 01 2016 14:17:21
%S 1,1,0,0,8,32,56,280,3968,27520,133248,1072896,13993088,137702528,
%T 1139191808,12544190464,178943504384,2268209053696,26439024316416,
%U 366953307820032,5943319707680768,91839717688770560
%N Expansion of exp(tan(x))/cosh(x).
%t With[{nn=30},CoefficientList[Series[Exp[Tan[x]]/Cosh[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 01 2016 *)
%K nonn,easy
%O 0,5
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
%E Previous Mathematica program replaced by _Harvey P. Dale_, May 01 2016
|
