A012775 - OEIS

%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