main = do
 n <- read <$> getLine :: IO Int
 hList <- map read . words <$> getLine :: IO [Int]
 let tmp = scanr1 (\x y -> if x > y then x - 1 else x) hList
 putStr $ (\x -> if and x then "Yes" else "No") $ map (\x -> x <= 0) $ zipWith (-) tmp $ tail tmp