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