A012714 - OEIS

%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