A202622 Denominators of coefficients in Taylor series expansion of log(cotan(x)*arcsinh(x)) (even powers only).

1, 2, 60, 18, 22680, 85050, 52123500, 3831077250, 142098138000, 325641566250, 58468943220187500, 27563930375231250, 798802702274201625000, 3634552295347617393750, 1801743872907365887500, 14229272236285922096531250, 13586109131205798417768037500000, 43305722855718482456635619531250

Offset

0,2

Links

Table of n, a(n) for n=0..17.

Example

-1/2*x^2-1/60*x^4-1/18*x^6+347/22680*x^8-1531/85050*x^10+590267/52123500*x^12+...

Mathematica

Take[CoefficientList[Series[Log[Cot[x]ArcSinh[x]], {x, 0, 40}], x], {1, -1, 2}]//Denominator (* Harvey P. Dale, Jul 12 2023 *)

Crossrefs

Cf. A012868.

Sequence in context: A050283 A096758 A262638 * A113549 A268432 A117482

Adjacent sequences: A202619 A202620 A202621 * A202623 A202624 A202625

Keyword

nonn,frac

Author

N. J. A. Sloane, Dec 21 2011

Status

approved