toInt :: String -> Int
toInt = read :: String -> Int

countTwos :: Int -> Int
countTwos n
  | mod n 2 == 0 = 1 + countTwos (div n 2)
  | otherwise = 0

judge :: [Int] -> Bool
judge a
  | mod l 2 == 0 = 2*f+t >= l
  | otherwise = 2*f+1+t >= l 
    where
      l = length a
      c = map countTwos a
      f = length $ filter (>= 2) c
      t = length $ filter (== 1) c

main = do
  n <- toInt <$> getLine
  a <- map toInt .words <$> getLine
  putStrLn $ if judge a then "Yes" else "No"
