program air;

var

i,n:LONGINT;

k:real;

begin

readln(n);

i:=0;

k:=0;

repeat

i:=i+1;

k:=k+(1/i);

until k>n;

writeln(i);

end.