%I #6 Oct 15 2012 17:04:30
%S 1,1,-19,445,-14663,718265,-50970203,4876389557,-548752599567,
%T 47436062951281,12631837146241245,-15669443125044502867,
%U 12502889747981009020841,-9927639811374322485212375
%N cosh(cos(x)*arctan(x))=1+1/2!*x^2-19/4!*x^4+445/6!*x^6-14663/8!*x^8...
%H Harvey P. Dale, <a href="/A012506/b012506.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Cosh[Cos[x]ArcTan[x]],{x,0,nn}],x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Oct 15 2012 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|