|
%I #6 Oct 22 2014 15:38:05
%S 1,6,120,5376,415104,48143744,7784817664,1673986906112,
%T 462531126525952,159859054841331712,67616604530628853760,
%U 34373912421215807799296,20685291456673100857344000
%N sinh(sec(x)*arctanh(x))=x+6/3!*x^3+120/5!*x^5+5376/7!*x^7...
%t With[{nn=30},Take[CoefficientList[Series[Sinh[Sec[x]ArcTanh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Oct 22 2014 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
