OFFSET
0,3
COMMENTS
LINKS
MATHEMATICA
max = 29; s = x/Log[Sqrt[(1+x)/(1-x)]] + O[x]^max; CoefficientList[s, x] * Range[0, max-1]! // Numerator (* Jean-François Alcover, Oct 04 2016 *)
CROSSREFS
KEYWORD
sign,easy,frac
AUTHOR
Wolfdieter Lang, Jul 14 2010
STATUS
approved