%I #14 Dec 29 2021 12:14:35
%S 1,1,1,3,9,17,57,259,497,961,9169,-8349,-299079,-420847,-7650615,
%T -107714525,-160774303,-291144191,-24228427487,71679177795,
%U 1725345708777,-2546217250159,79802910103257,1636072819714243,-2815860329426863
%N Expansion of exp(sin(x)*cosh(x)).
%t With[{nn=30},CoefficientList[Series[Exp[Sin[x]*Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 29 2021 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Dec 29 2021