A009147 - OEIS

%I #18 Jul 02 2022 15:49:10

%S 1,0,1,6,21,60,237,1498,9289,46872,208249,1096590,7953693,57151380,

%T 296264997,707086882,-2635164911,-25223244624,-123580612751,

%U -4185669625194,-97178084153691,-1235239023971988,-9092858617394211

%N Expansion of e.g.f.: cosh(sin(x)*exp(x)).

%H Robert Israel, <a href="/A009147/b009147.txt">Table of n, a(n) for n = 0..555</a>

%F E.g.f.: cosh(sin(x)*exp(x)). - _Robert Israel_, Dec 29 2016

%p S:=series(cosh(sin(x)*exp(x)),x,41):

%p seq(coeff(S,x,j)*j!,j=0..40); # _Robert Israel_, Dec 29 2016

%t With[{nn=30},CoefficientList[Series[Cosh[Sin[x]Exp[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Jul 02 2022 *)

%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 and definition clarified by _Harvey P. Dale_, Jul 02 2022