# 
restart;
S1:=Sum(1/(n+k),k=0..n-1);
S2:=Sum(1/k*(1/2)^k,k=1..n);
f1:=unapply(S1,n);
f2:=unapply(S2,n);
value(f1(5));
value(f2(3));
evalf(log(2));
for j from 10 to 100 by 10 do
    print(j,evalf(f1(j)),evalf(f2(j)));
od;

#