OFFSET
1,1
EXAMPLE
cot(arctanh(x)) = 1/x - (2/3)*x - (4/3)*x^3/3! - (1040/63)*x^5/5! - ...
MATHEMATICA
With[{nn=60}, Take[CoefficientList[Series[-Cot[ArcTanh[x]], {x, 0, nn}], x] Range[ 0, nn-1]!, {2, -1, 2}]]//Quiet//Denominator (* Harvey P. Dale, Sep 26 2020 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ralf Stephan, Dec 28 2004
STATUS
approved