import Control.Applicative
import Data.Maybe
import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString as B

main :: IO ()
main = do
    n <- (fst . fromJust . BC.readInteger) <$> B.getLine
    putStrLn $ show $ 2 * (n `div` 3 + n `div` 5)