n=0; i=0; while (n<5); i=i+1; n=n+1/i; end; n=0; for j=1:i-1; n=n+1/j; end