OFFSET
1,1
COMMENTS
Numerator and denominator in definition have no common factors >1.
LINKS
Brian Hayes, A Tantonalizing Problem
EXAMPLE
The 3rd harmonic number is 11/6. So a(3) = 11 + 6 = 17.
MAPLE
h:= n-> numer(sum(1/k, k=1..n))+denom(sum(1/k, k=1..n)): seq(h(n), n=1..30); # Emeric Deutsch, Nov 18 2004
MATHEMATICA
Numerator[#]+Denominator[#]&/@HarmonicNumber[Range[30]] (* Harvey P. Dale, Jul 04 2017 *)
PROG
(PARI) a(n) = my(h=sum(k=1, n, 1/k)); numerator(h) + denominator(h); \\ Michel Marcus, Sep 07 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Leroy Quet, Sep 19 2001
EXTENSIONS
More terms from Emeric Deutsch, Nov 18 2004
STATUS
approved