A009193 Expansion of e.g.f.: exp(log(1+x)*cosh(x)).

1, 1, 0, 3, 6, -5, 135, -154, 1260, 6189, -33285, 470294, -2056758, 14299935, -3614611, -379101878, 10041282472, -121491285111, 1656259499511, -21619048472474, 338632378045750, -5874571029856693, 115201962050532137

Offset

0,4

Links

Table of n, a(n) for n=0..22.

Formula

E.g.f.: (1+x)^cosh(x). - Vaclav Kotesovec, Jul 28 2018

a(n) ~ (-1)^n * n! / (Gamma(-cosh(1)) * n^(1 + cosh(1))). - Vaclav Kotesovec, Jul 28 2018

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Log[1+x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 21 2017 *)

Crossrefs

Sequence in context: A307132 A300673 A335633 * A144253 A152422 A332133

Adjacent sequences: A009190 A009191 A009192 * A009194 A009195 A009196

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jun 21 2017

Status

approved