%I #11 Jul 27 2018 04:36:06
%S 0,1,-1,7,-24,223,-1635,19409,-221592,3270325,-50128965,898512371,
%T -17140184688,364328185843,-8275583884295,204221077642685,
%U -5369189766162960,151121003206989833,-4508710182336979593
%N Expansion of e.g.f. arctanh(sec(x) * log(x+1)).
%e x - 1/2!*x^2 + 7/3!*x^3 - 24/4!*x^4 + 223/5!*x^5 ...
%t Range[0, 20]! CoefficientList[ Series[ArcTanh[Sec[x] Log[x + 1]], {x, 0, 20}], x] (* _Robert G. Wilson v_, Jul 24 2018 *)
%o (PARI) x = 'x + O('x^30); concat(0, Vec(serlaplace(atanh(log(x+1)/cos(x))))) \\ _Michel Marcus_, Jul 27 2018
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0) inserted and title improved by _Sean A. Irvine_, Jul 24 2018
|