Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A118051
Denominators of coefficients in a series for the inverse of harmonic number H(x).
3
1, 24, 640, 580608, 199065600, 504627200, 2191186722816000, 44497945755648000, 255806104666112, 15953645581139831685120000, 188420950968830433165312000000, 401521614736326656000000
OFFSET
0,2
EXAMPLE
With InvH(x) being the inverse of H(x), x > 0, an asymptotic series for InvH(x) + 1/2 is u - 1/(24u) + 3/(640u^3) - 1525/(580608u^5) +-... where u = e^(x - g) and g is Euler's gamma constant.
MATHEMATICA
n = 12; coeffs = InverseSeries[Exp[Series[HarmonicNumber[x - 1/2], {x, Infinity, 2n - 1}] - EulerGamma]][[3]]; Table[Denominator[coeffs[[2i - 1]]], {i, 1, n}]
CROSSREFS
Numerators given in A118050. See also A002387.
Sequence in context: A126153 A002553 A006201 * A208441 A231449 A276246
KEYWORD
frac,nonn
AUTHOR
David W. Cantrell (DWCantrell(AT)sigmaxi.net), Apr 08 2006
STATUS
approved