module Main where

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

fizzBuzzN :: Integer -> Integer
fizzBuzzN 0 = 0
fizzBuzzN n = let a = if n `mod` 5 == 0 then 2 else 0
                  b = if n `mod` 3 == 0 then 2 else 0
                  x = a + b
                  in x + fizzBuzzN (n-1)