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