main = do
       xs<-getContents
       let ys=map read (lines xs)::[Int]
           zs=tail ys
           n=head ys
           t=minimum $ zs
       print $ (div n t) + 4 + if (mod n t)>0 then 1 else 0