|
%I #7 Aug 14 2021 16:28:46
%S 0,1,-1,-3,12,43,-555,-49,37632,-154867,-3817845,45540649,409535148,
%T -12690409929,-14813266559,3983011043675,-28691304331680,
%U -1331245986549447,25689766775914647,419731311262402229
%N Expansion of e.g.f.: arctan(sech(x)*log(x+1))=x-1/2!*x^2-3/3!*x^3+12/4!*x^4+43/5!*x^5...
%t With[{nn=20},CoefficientList[Series[ArcTan[Sech[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 14 2021 *)
%K sign
%O 1,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Zero prepended to sequence and definition clarified by _Harvey P. Dale_, Aug 14 2021
|
