var a:array[1..10000]of real;i,j,n,x:integer;s:real;

begin

readln(n);

for i:=1 to 10000 do

begin

s:=s+1/i;a[i]:=s;

end;

x:=1;

repeat

inc(x);

until a[x]>n;

writeln(x);

end.