OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..200
EXAMPLE
a(2) = 3 because 1 + 1/3 < 1 + 1/2 < 1 + 1/3 + 1/5.
MATHEMATICA
z = 54; f[n_] := 1/n; p[n_] := p[n] = Sum[f[k], {k, 1, n}]; q[n_] := 1/(2 n - 1); Do[s = 0; a[n] = NestWhile[# + 1 &, 1, ! (s += q[#]) >= p[n] &], {n, 1, z}]; m = Map[a, Range[z]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 30 2013
STATUS
approved