|
%I #13 Dec 11 2020 17:46:04
%S 0,1,-1,3,0,-37,345,-1967,2296,122093,-2157165,21241847,-62837544,
%T -2704412921,74329911565,-1080320786971,5480675823120,220652162236409,
%U -8577532338045273,168598543971458059,-1306206271210775920,-46736993299592412013
%N E.g.f.: arctan(sec(x)*log(x+1)) = x - 1/2!*x^2 + 3/3!*x^3 - 37/5!*x^5 + 345/6!*x^6 - ...
%t With[{nn=20}, CoefficientList[Series[ArcTan[Sec[x]Log[x+1]], {x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 10 2013 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0) prepended and definition clarified by _Harvey P. Dale_, Dec 10 2013
|
