|
%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
|
