main::IO()
main = do
  n <- fmap read getLine
  print . (*2) . (+(n `div` 3)) $ n `div` 5