OFFSET
2,1
EXAMPLE
a(3) = 5 since the expansion 1 = 1/3 + 1/4 + 1/5 + 1/6 + 1/20 has 5 terms.
MATHEMATICA
a[n_] := Module[{c = 1, s = 1/n, k = n}, While[s < 1, k = Max[k + 1, Ceiling[1/(1 - s)]]; s += 1/k; c++]; c]; Array[a, 20, 2]
CROSSREFS
Cf. A069257.
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Oct 18 2019
STATUS
approved