main::IO()
main = do
  nc<-getLine
  let n = read nc ::Int
  dat<-(get_n n)
  print (solver 1 dat)
 
 
 
solver :: Int -> [Int] -> Int
solver x [] = 0
solver x (b:rest)= if b<x then solver x rest
                          else if b==x then solver (x+1) rest
                                       else if (mod b x==0) then ((div b x)-1)+(solver (max 2 x) rest)
                                                            else (div b x)+(solver (max 2 x) rest)
 
get_n::Int -> IO [Int]
get_n 0 = return []
get_n n = do
          c<-getLine
          let m = read c ::Int
          rest<- (get_n (n-1))
          return (m:rest)