function f(n: integer): integer; 
 begin 
   var 
   i, j: integer; 
   if n < 3 then 
     f := n + 1 
   else  
     if ((n mod 2) = 0) then 
          f := f(n - 2) + n - 2 
      else 
          f := f(n + 2) + n + 2; 
 end;

 var n:integer; 
 function F(n:integer):integer; 
 begin 
 if n<3  then F:=n 
   else 
     if ((n mod 2) = 0) then  
 F:=F(n-1)+2*F(n div 2) else 
   F:=F(n-1)+F(n-3); 
   end; 
 begin 
   writeln (n);  
      end.

 
 var     
     n, kNum, Fn, Fn_2 :integer; 
      
 begin 
     kNum := 0; 
     //Определение функции F(n) = F(n + 2) + n + 2, когда n ≥ 3 и нечетно 
     //не используем, т.к. оно ссылается на СЛЕДУЮЩИЕ значения 
      
     (Fn_2, Fn) := (3, 0); //f[2] = 3 
     n := 2; 
     Repeat 
         n += 2;       
         Fn := Fn_2 + n - 2; 
         if (Fn >= 10000) then  
           begin 
               kNum += 1; 
               //Writeln(kNum,' ',Fn);  - тестовый вывод             
           end; 
         Fn_2 := Fn;         
     Until Fn >= 100000; 
      
     writeln(kNum - 1); 
 end.