%I #16 Mar 17 2023 12:14:37

%S 1,0,-12,-216,-5296,-168128,-5391680,38412672,61881368832,

%T 16576603568128,4120672559178752,1085659391947229184,

%U 313198080458495610880,99633528964523733598208,34860299883730859703910400

%N Expansion of e.g.f.: cosh(x)*cos(tan(x)).

%t With[{nn=30},Take[CoefficientList[Series[Cosh[x]*Cos[Tan[x]],{x,0,nn}],x] Range[ 0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, May 11 2020 *)

%K sign

%O 0,3

%A _R. H. Hardin_

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

%E Previous Mathematica program replaced by _Harvey P. Dale_, May 11 2020