|
%I #13 Nov 13 2016 17:09:13
%S 2,4,8,272,15640,103504,203248,4712878048,994787896,29947918028368,
%T 19403266491914896,44494589501437664,1343012003853467792,
%U 940284256279455687458272,18264529537961367195872,13625209118796335138813851456
%N Numerator of [x^(2n+1)] of the Taylor expansion -arcsin(cot(x)-coth(x)).
%H G. C. Greubel, <a href="/A013553/b013553.txt">Table of n, a(n) for n = 0..200</a>
%e 2*x/3 +4*x^3/81 +8*x^5/567 +272*x^7/76545 +15640*x^9/13640319 +...
%t Numerator[Take[CoefficientList[Series[-ArcSin[Cot[x] - Coth[x]], {x,0,26}], x], {2, -1, 2}]] (* _G. C. Greubel_, Nov 13 2016 *)
%K nonn,frac
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Name edited by _R. J. Mathar_, Dec 21 2011
|
