%I #10 Nov 21 2013 12:46:02
%S 1,0,0,10,840,87750,12340900,2304422250,556725078000,169707184396750,
%T 63859173696337500,29112458631692231250,15824678904821697625000,
%U 10117021949736621549093750,7518098018091686976236812500
%N cosh(arcsin(x)-arctanh(x))=1+10/6!*x^6+840/8!*x^8+87750/10!*x^10...
%H Vincenzo Librandi, <a href="/A013436/b013436.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Cosh[ArcSin[x]-ArcTanh[x]],{x,0,nn}], x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Nov 13 2011 *)
%K nonn
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|