OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3)=5 because 1/3 + 1/4 + 1/5 + 1/6 < 1 (4 terms), but 1/3 + 1/4 + 1/5 + 1/6 + 1/7 >= 1 (5 terms).
MATHEMATICA
i = 0; s = 0; Table[While[s < 1, i++; s = s + 1/i]; s = s - 1/n; i - n + 1, {n, 100}] (* T. D. Noe, Jun 26 2012 *)
With[{nn=100}, Table[Position[Accumulate[1/Range[n, 2 nn]], _?(#>=1&), 1, 1], {n, nn}]]//Flatten (* Harvey P. Dale, May 09 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franz Vrabec, Jun 24 2012
STATUS
approved