a = 0 ;
b = 0 ;
for i =1:100;
   for j = 1 :i ;
   a = a + 1/j ;
   end  
if a < 5 ;
   b =i ;
end 
a = 0 ;
end