import Control.Monad (filterM, guard)
import Data.List (foldr1)

coefficient :: [a] -> Integer
coefficient l = let s = fromIntegral $ length l
                in s * (-1) ^ (s + 1)

lcms :: [Integer] -> Integer
lcms = foldr1 lcm

count :: Integer -> [Integer] -> Integer
count n cs = sum $ do
  xs <- filterM (const [False, True]) cs
  guard $ xs /= []
  let f = lcms xs
  return $ coefficient xs * (n `div` f)

readMany :: (Read a) => IO [a]
readMany = fmap (map read . words) getLine

main = do
  [n, l, h] <- readMany
  cs <- readMany
  print $ count h cs - count (l-1) cs