|
%I #9 Dec 12 2019 13:30:41
%S 0,2,-1,20,-54,940,-5670,101440,-1011080,19618000,-276748200,
%T 5948856800,-108391285200,2598850748000,-57723908897200,
%U 1543071734672000,-40212272774544000,1193617208821024000
%N Expansion of e.g.f. tan(arctanh(x) + log(x+1)).
%e 2*x - 1/2!*x^2 + 20/3!*x^3 - 54/4!*x^4 + 940/5!*x^5 ...
%t With[{nn=20},CoefficientList[Series[Tan[ArcTanh[x]+Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 12 2019 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 inserted and title improved by _Sean A. Irvine_, Jul 31 2018
|
