|
%I #14 Nov 23 2023 17:22:47
%S 1,2,-24,104,1792,-68608,1203840,5570816,-1636425728,86205304832,
%T -2289265803264,-73881736609792,15846608494821376,
%U -1309579649460404224,56807804221374332928,2613072244764189655040,-930940291170336707182592
%N Expansion of sin(x)*cosh(sin(x)).
%t With[{nn=40},Take[CoefficientList[Series[Sin[x]*Cosh[Sin[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 23 2023 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Nov 23 2023
|
