%I #6 Mar 12 2013 18:29:22
%S 0,1,0,-3,12,-7,-168,917,-1568,-7183,198400,-3803987,27605248,
%T 316369129,-8352339968,40892465221,772060278784,-12655402122271,
%U 84749115129856,-1539257113273507,2576755050676224
%N E.g.f.: log(cosh(x)+arctan(x))=x-3/3!*x^3+12/4!*x^4-7/5!*x^5-168/6!*x^6...
%t With[{nn=30},CoefficientList[Series[Log[Cosh[x]+ArcTan[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Mar 12 2013 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E First term prepended and definition clarified by _Harvey P. Dale_, Mar 12 2013
|