%I #8 Dec 02 2018 02:36:56

%S 0,0,2,-3,16,-50,248,-504,-1584,94536,-1464768,23328360,-336539040,

%T 5198852880,-79862710800,1306170600840,-21763435223040,

%U 382939844024640,-6915154663557120,130859230589792640

%N E.g.f.: sin(arctanh(x)*log(x+1)) = 2/2!*x^2 - 3/3!*x^3 + 16/4!*x^4 - 50/5!*x^5 + ...

%t With[{nn=20},CoefficientList[Series[Sin[ArcTanh[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 09 2014 *)

%K sign

%O 0,3

%A Patrick Demichel (patrick.demichel(AT)hp.com)

%E First two terms prepended and definition clarified by _Harvey P. Dale_, May 09 2014