OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Harmonic Number
Eric Weisstein's World of Mathematics, Continued Fraction
EXAMPLE
1 +1/2 +1/3 +1/4 +1/5 +1/6 = 49/20 = 2 + 1/(2 + 1/(4 + 1/2)).
So a(6) is 7, the numerator of 7/4 = 1/2 + 1/2 + 1/4 + 1/2.
MATHEMATICA
f[n_] := Plus @@ (1/# &) /@ ContinuedFraction[Sum[1/k, {k, n}]]; Table[Numerator[f[n]], {n, 40}] (* Ray Chandler, Sep 06 2005 * )
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Leroy Quet, Sep 01 2005
EXTENSIONS
Extended by Hans Havermann and Ray Chandler, Sep 06 2005
STATUS
approved