A012700 - OEIS

%I #10 Jul 24 2018 19:02:27

%S 0,0,2,-3,16,-50,608,-4284,53856,-517824,7365312,-93511440,1542037440,

%T -24197565600,452937477120,-8397165641760,176769352058880,

%U -3770083289172480,88455117393715200,-2127638031857717760

%N Expansion of e.g.f. tan(arctanh(x) * log(x+1)).

%e 2/2!*x^2 - 3/3!*x^3 + 16/4!*x^4 - 50/5!*x^5 ...

%t With[{nn=20},Drop[CoefficientList[Series[Tan[ArcTanh[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!,2]] (* _Harvey P. Dale_, May 07 2018 *)

%K sign

%O 0,3

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

%E a(0) and a(1) inserted and title improved by _Sean A. Irvine_, Jul 24 2018