import Data.List

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

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

judge :: [Int] -> String
judge l
  | 2*a >= len-1 = "Yes"
  | 2*b >= len-a = "Yes"
  | otherwise = "No"
    where
      a = length . filter (>= 2) $ l
      b = length . filter (== 1) $ l
      len = length l

main = do
  n <- getLine
  a <- map toInt . words <$> getLine
  putStrLn $ judge . map countDivisor2s $ a
