|
%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
|
