var n,i: integer; x,s: real;
begin
readln(x,n);
s:=1;
for i:=2 to n do
s:=s+1/(i*x);
writeln(s);
end.
var n,i: integer; x,s: real;
begin
readln(x,n);
s:=1;
for i:=2 to n do
s:=s+1/(i*x);
writeln(s);
end.