import Control.Applicative

solver :: Int -> Int -> Int -> Int
solver a b c =
  let ab = [a..b]
      cand = [x | x <- ab, c `mod` x == 0]
  in
      length cand

main :: IO()
main = do
  (a:b:c:_) <- map (read :: String -> Int) . words <$> getLine
  print $ solver a b c