|
%I
%S 1,0,-12,120,-5040,398400,-42267456,6511220352,-1348919320320,
%T 361546293368832,-121866178161646592,50449587034359175168,
%U -25164869672254098452480,14886957060645519281602560
%N cos(sinh(x)*arctan(x))=1-12/4!*x^4+120/6!*x^6-5040/8!*x^8...
%H Vincenzo Librandi, <a href="/A012559/b012559.txt">Table of n, a(n) for n = 0..50</a>
%t With[{nn=30},Take[CoefficientList[Series[Cos[Sinh[x]ArcTan[x]],{x,0,nn}],x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Oct 16 2012 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
