module Main where


main :: IO ()
main = do
  i <- readLn
  print $ fizzBuzzN i

fizzBuzzN :: Integer -> Integer
fizzBuzzN n = let fizz = n `div` 5 * 2
                  buzz = n `div` 3 * 2
              in fizz + buzz