A009463 - OEIS

%I #13 Apr 06 2018 14:29:05

%S 0,1,-1,4,-6,-15,255,-2984,27972,-270715,2655315,-27141996,290213814,

%T -3244179419,37924786627,-461313190168,5805782143080,-74822106476983,

%U 970988704302663,-12286902933891708,140375955767835090

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

%t With[{nn=20},CoefficientList[Series[Sin[Log[1+x]*Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Apr 06 2018 *)

%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_, Apr 06 2018