|
%I #9 Jun 07 2019 17:54:20
%S 0,1,2,4,0,-60,-680,-5504,-45696,-356080,-2998112,-23985216,
%T -210124288,-1616818112,-13420660864,-52229820928,283969097728,
%U 28575615328512,648822348255744,17074162547880960,350789663754797056
%N Expansion of e.g.f. sin(arctanh(x) * exp(x)).
%e x + 2/2!*x^2 + 4/3!*x^3 - 60/5!*x^5 - 680/6!*x^6 ...
%t With[{nn=20},CoefficientList[Series[Sin[ArcTanh[x]Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 07 2019 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0) inserted and title improved by _Sean A. Irvine_, Jul 24 2018
|
