%I #14 Nov 21 2013 12:46:02

%S 0,2,-1,8,-30,358,-2655,41428,-511980,9864538,-171757845,3961279808,

%T -88981176570,2406642164782,-65936688564747,2056690243987468,

%U -66255959470897560,2349481394958302898,-86780043600660006633

%N E.g.f. arcsin(tanh(x)+log(x+1)) = 2*x - 1/2!*x^2 + 8/3!*x^3 - 30/4!*x^4 +- ...

%H Vincenzo Librandi, <a href="/A013119/b013119.txt">Table of n, a(n) for n = 0..200</a>

%e arcsin(tanh(x)+log(x+1)) = 2*x - 1/2!*x^2 + 8/3!*x^3 - 30/4!*x^4 + 358/5!*x^5...

%t With[{nn=20}, CoefficientList[Series[ArcSin[Tanh[x]+Log[x+1]], {x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 23 2011 *)

%K sign

%O 0,2

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