f' n m
  | n > m = 0
  | isFizz && isBuzz = (+) 4 $ f' (n + 1) m
  | isFizz || isBuzz = (+) 2 $ f' (n + 1) m
  | otherwise = f' (n + 1) m
  where
    isFizz = n `mod` 3 == 0
    isBuzz = n `mod` 5 == 0

f = f' 1

main = getLine >>= print . f . read