main = do
  val <- readLn
  print $ val `div` 5 * 2 + val `div` 3 * 2