%I #19 Nov 13 2016 06:55:35
%S 2,48,768,645120,37158912,81749606400,784796221440,42849873690624000,
%T 548478383239987200,63777066403145711616000,4285818862291391820595200,
%U 216862434431944426122117120000,8007228348256409579893555200000,1461479318123759876522171695104000000
%N Denominator of [x^(2n+1)] in the Taylor expansion arcsinh(cosec(x) - cot(x)).
%C Numerators are apparently covered by A091912.
%C The e.g.f. of x/2, arcsinh(cosec(x)-cot(x)) = x/(2^1*1!) + x^3/(2^3*3!) + 5*x^5/(2^5*5!) + 61*x^7/(2^7*7!) + 1385*x^9/(2^9*9!) + ... is apparently provided by the absolute values of A028296.
%H G. C. Greubel, <a href="/A013523/b013523.txt">Table of n, a(n) for n = 0..200</a>
%e x/2 + x^3/48 + x^5/768 + 61*x^7/645120 + 277*x^9/37158912 + ...
%t Denominator[Take[CoefficientList[Series[ArcSinh[Csc[x] - Cot[x]], {x,0,25}], x], {2, -1, 2}]] (* _G. C. Greubel_, Nov 12 2016 *)
%K nonn,frac
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Name edited by _R. J. Mathar_, Dec 19 2011
|