main = do
  n <- readLn :: IO Integer
  a <- readLn :: IO Integer
  b <- readLn :: IO Integer
  c <- readLn :: IO Integer
  d <- readLn :: IO Integer
  e <- readLn :: IO Integer
  print $ if n `mod` minimum [a,b,c,d,e] == 0 then 4 + n `div` minimum [a,b,c,d,e] else 5 + n `div` minimum [a,b,c,d,e]
