import Data.List

main :: IO ()
main = interact $ show . solve . map (read :: String -> Integer) . words

solve :: [Integer] -> Int
solve (l:r:m:_) = length $ nub $ map (flip mod m) [l..r]