A009245 - OEIS

%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