A009193 - OEIS

%I #15 Jul 28 2018 16:43:13

%S 1,1,0,3,6,-5,135,-154,1260,6189,-33285,470294,-2056758,14299935,

%T -3614611,-379101878,10041282472,-121491285111,1656259499511,

%U -21619048472474,338632378045750,-5874571029856693,115201962050532137

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

%F E.g.f.: (1+x)^cosh(x). - _Vaclav Kotesovec_, Jul 28 2018

%F a(n) ~ (-1)^n * n! / (Gamma(-cosh(1)) * n^(1 + cosh(1))). - _Vaclav Kotesovec_, Jul 28 2018

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

%K sign,easy

%O 0,4

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jun 21 2017