OFFSET
1,1
COMMENTS
At any step only the least value greater than a(n) is taken into consideration.
LINKS
Eric Weisstein's World of Mathematics, Egyptian fraction
EXAMPLE
1/14 = 0.071428...
1/14 + 1/(28-14) = 0.1428571...
1/14 + 1/(28-14) + 1/(71192-28+14) = 0.142871192142...
The sum is 0.14 28 71192...
MAPLE
P:=proc(q, h) local a, b, d, n, t, z; a:=1/h; b:=length(h); d:=h; print(d); t:=h;
for n from t+1 to q do z:=evalf(evalf(a+1/(n-t), 100)*10^(b+length(n)), 100);
z:=trunc(z-frac(z)); if z=d*10^length(n)+n then b:=b+length(n);
d:=d*10^length(n)+n; t:=n-t; a:=a+1/t; print(n); fi; od; end: P(10^20, 14);
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Paolo P. Lava, May 17 2019
EXTENSIONS
a(4)-a(6) from Giovanni Resta, May 17 2019
STATUS
approved