var  
02.  k,n,a:integer;  
03.  sn:real;  
04.begin  
05.  read(k);  
06.  a:=1;  
07.  n:=1;  
08.  if (k>15) or (k<1) then write('error') else  
09.    while sn<=k do  
10.    begin  
11.      sn:=sn+a/n;  
12.      n:=n+1;  
13.    end;  
14.    n:=n-1;  
15.  write(n);  
16.end.