OFFSET
2,1
FORMULA
a(n) = floor(1/(H(n) - floor(H(n)))), where H(n) = sum{k=1 to n} 1/k.
MATHEMATICA
f[n_] := Block[{h = HarmonicNumber[n]}, Floor[1/(h - Floor[h])]]; Table[ f[n], {n, 2, 99}] (* Robert G. Wilson v, Mar 19 2005 *)
Table[ContinuedFraction[HarmonicNumber[n]][[2]], {n, 2, 100}] (* Harvey P. Dale, May 07 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 18 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 19 2005
STATUS
approved