%I #11 Aug 14 2020 14:39:33
%S 1,0,12,360,14672,947520,89973312,11518066560,1887213285632,
%T 383583690823680,94596308487109632,27811060234433710080,
%U 9605125245736932134912,3848453455438561596456960
%N Expansion of cosh(tan(x)*sinh(x)).
%t With[{nn=30},Take[CoefficientList[Series[Cosh[Tan[x]*Sinh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 14 2020 *)
%K nonn
%O 0,3
%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_, Aug 14 2020