main = do
  n <- getLine
  a <- (map read . words) <$> getLine
  putStrLn $ solve a

solve:: [Int] -> String
solve a
  |  ttn > k * 2 = "Yes"
  | otherwise = "No"
  where
    ffa = filter (\x -> x `mod` 4 == 0) a
    ttn = length $ filter (\x -> x `mod` 2 == 0) ffa
    k = length a - length ffa * 3