%I #14 Jun 22 2015 22:49:38
%S 0,1,0,4,-12,71,-420,2962,-23688,213229,-2132280,23455136,-281461620,
%T 3659001139,-51226015932,768390239086,-12294243825360,209002145031257,
%U -3762038610562608,71478733600689724,-1429574672013794460
%N Expansion of sinh(x)*cosh(log(1+x)).
%F a(n) ~ n! * (-1)^(n+1) * sinh(1) / 2. - _Vaclav Kotesovec_, Jan 23 2015
%t Sinh[ x ]*Cosh[ Log[ 1+x ] ]
%t CoefficientList[Series[((1 + (1 + x)^2)*Sinh[x])/(2*(1 + x)), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997