var s,a: real;
n,i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
a:=1/i;
s:=s+a;
end;
writeln(s:0:5);
end.