|
%I #6 Jan 15 2013 16:53:35
%S 1,0,-1,-6,-31,-140,-625,-2170,-2623,96072,1642975,23520882,295668001,
%T 3935469564,50912723823,723034935870,10169862858113,159490471907856,
%U 2472265829827775,43176564012771434
%N E.g.f.: cos(arctanh(x)*exp(x))=1-1/2!*x^2-6/3!*x^3-31/4!*x^4-140/5!*x^5...
%t With[{nn=30},CoefficientList[Series[Cos[ArcTanh[x]Exp[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Jan 15 2013 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jan 15 2013
|
