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

1, 0, 1, 6, 21, 60, 237, 1498, 9289, 46872, 208249, 1096590, 7953693, 57151380, 296264997, 707086882, -2635164911, -25223244624, -123580612751, -4185669625194, -97178084153691, -1235239023971988, -9092858617394211

Offset

0,4

Links

Robert Israel, Table of n, a(n) for n = 0..555

Formula

E.g.f.: cosh(sin(x)*exp(x)). - Robert Israel, Dec 29 2016

Maple

S:=series(cosh(sin(x)*exp(x)), x, 41):
seq(coeff(S, x, j)*j!, j=0..40); # Robert Israel, Dec 29 2016

Mathematica

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

Crossrefs

Sequence in context: A305120 A066524 A113070 * A012593 A276235 A334833

Adjacent sequences: A009144 A009145 A009146 * A009148 A009149 A009150

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 02 2022

Status

approved