A009538 - OEIS

%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