import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> readLn >>= print

solve :: Int -> Int
solve n = (n `div` 3 + n `div` 5) * 2