|
%I #10 Nov 21 2013 12:50:21
%S 6,1296,145152,156764160,893931945984,46352026828800,2402889070804992,
%T 5903898446967865344000,205118300328940693094400,
%U 869939530623090109924245504000,60506034233897163325451123294208000,105227885624168979696436736163840000,5629853769947846827574282979744153600000
%N Denominators of coefficients in Taylor series expansion of arcsin(cosec(x)-cotanh(x)).
%e -1/6*x+53/1296*x^3+73/145152*x^5+45137/156764160*x^7+11226497/893931945984*x^9+...
%p t1:=arcsin(csc(x)-coth(x));
%p t2:=series(t1,x,30);
%p t3:=seriestolist(t2);
%p t3:=[seq(t3[2*i],i=1..(nops(t3)-2)/2 )];
%p t4:=map(numer,t3); t5:=map(denom,t3); lprint(t2);
%t Take[Denominator[Abs[CoefficientList[Series[ArcSin[Csc[x]-Coth[x]],{x,0,30}], x]]],{2,-1,2}] (* _Harvey P. Dale_, Dec 31 2011 *)
%Y Cf. A013538.
%K nonn,frac
%O 0,1
%A _N. J. A. Sloane_, Dec 18 2011
|
