main :: IO ()
main = (\x -> ((x `div` 3) + (x `div` 5)) * 2) <$> readLn >>= print