|
%I #16 Jul 12 2023 18:21:37
%S 1,2,60,18,22680,85050,52123500,3831077250,142098138000,325641566250,
%T 58468943220187500,27563930375231250,798802702274201625000,
%U 3634552295347617393750,1801743872907365887500,14229272236285922096531250,13586109131205798417768037500000,43305722855718482456635619531250
%N Denominators of coefficients in Taylor series expansion of log(cotan(x)*arcsinh(x)) (even powers only).
%e -1/2*x^2-1/60*x^4-1/18*x^6+347/22680*x^8-1531/85050*x^10+590267/52123500*x^12+...
%t Take[CoefficientList[Series[Log[Cot[x]ArcSinh[x]],{x,0,40}],x],{1,-1,2}]//Denominator (* _Harvey P. Dale_, Jul 12 2023 *)
%Y Cf. A012868.
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_, Dec 21 2011
|
