|
|
A189048
|
|
Numerators of expansion of (Sum_{k=1..n} 1/k) - log(n(1+1/(2n))) - gamma.
|
|
3
|
|
|
1, -1, 23, -1, -11, -1, 143, -1, -2527, -1, 1416533, -1, -57341, -1, 118522111, -1, -5749735025, -1, 91546452133, -1, -1792043646907, -1, 1982765704676693, -1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,3
|
|
LINKS
|
|
|
EXAMPLE
|
1/(24n^2) - 1/(24n^3) + 23/(960*n^4) - 1/(160n^5) - 11/(8064*n^6) - 1/(896n^7) + 143/(30720*n^8) + ...
|
|
MATHEMATICA
|
s = Sum[1/k, {k, 1, n}] - Log[n*(1 + 1/(2*n))] - EulerGamma; CoefficientList[ Series[s, {n, Infinity, 25}], 1/n][[3 ;; -1]] // Numerator (* Jean-François Alcover, Sep 12 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,frac,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|