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