A009487 - OEIS

%I #12 Sep 15 2015 10:40:01

%S 0,1,-1,2,-6,16,0,-736,12208,-169784,2318040,-32444776,472825056,

%T -7215401192,115478109656,-1937542156096,34035113079360,

%U -624767330011904,11958852841719552,-238135073165940736,4920755077661248000

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

%t With[{nn=20},CoefficientList[Series[Sin[Sinh[Log[1+x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 15 2015 *)

%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_, Sep 15 2015