login
A249646
Denominators of 2*H(n)-H(n*(n+1)), a sequence the limit of which is gamma, the Euler-Mascheroni constant, where H(n) is the n-th harmonic number.
2
2, 20, 27720, 5173168, 2329089562800, 2844937529085600, 54749786241679275146400, 1874681189225708508850515710400, 718766754945489455304472257065075294400, 153803387341307877636928566091115101174034840640
OFFSET
1,1
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 1.5 Euler-Mascheroni constant, p. 28.
J. J. Mačys, "A new problem," American Mathematical Monthly, (Jan 2012), vol. 119, no. 1, p. 82.
LINKS
EXAMPLE
Sequence of fractions begins 1/2, 11/20, 15619/27720, 2943155/5173168, 1331492839973/2329089562800, ...
MATHEMATICA
Table[2*HarmonicNumber[n] - HarmonicNumber[n*(n + 1)] // Denominator, {n, 1, 10}]
PROG
(PARI) {a(n) = 2*sum(k=1, n, 1/k) - sum(k=1, n*(n+1), 1/k)};
for(n=1, 15, print1(denominator(a(n)), ", ")) \\ G. C. Greubel, Sep 04 2018
(Magma) [Denominator(2*HarmonicNumber(n) - HarmonicNumber(n*(n + 1))): n in [1..15]]; // G. C. Greubel, Sep 04 2018
CROSSREFS
Cf. A001008, A001620, A002805, A189048, A189049, A249645 (numerators).
Sequence in context: A060600 A356689 A346564 * A143247 A342079 A303216
KEYWORD
nonn,frac
AUTHOR
STATUS
approved