|
%I #23 Jan 22 2018 02:39:27
%S 0,1,-1,6,-18,95,-555,3892,-31108,279981,-2799765,30797426,-369569046,
%T 4804397611,-67261566463,1008923496960,-16142775951240,
%U 274427191171097,-4939689441079593,93854099380512286,-1877081987610245530
%N Expansion of e.g.f. sinh(log(1+x))*cosh(x).
%H G. C. Greubel, <a href="/A009573/b009573.txt">Table of n, a(n) for n = 0..448</a>
%F a(n) ~ n! * (-1)^(n+1) * (exp(-1) + exp(1)) / 4. - _Vaclav Kotesovec_, Jan 23 2015
%t With[{nn=20},CoefficientList[Series[Sinh[Log[1+x]]Cosh[x], {x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 25 2012 *)
%t CoefficientList[Series[(x*(2 + x)*Cosh[x])/(2*(1 + x)), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%o (PARI) x='x+O('x^30); concat([0],Vec(serlaplace(sinh(log(1+x))*cosh(x)) )) \\ _G. C. Greubel_, Jan 21 2018
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
