import Data.List

main = do
  n <- readLn :: IO Int
  as <- getLine >>= return . map read . words :: IO [Int]

  let cntdiv4 = length $ filter (\x -> mod x 4 == 0) as
  let cntdiv2 = length $ filter (\x -> mod x 2 == 0 && mod x 4 /= 0) as

  let b = cntdiv4*2 + (if cntdiv2 >= 1 then (cntdiv2-1) else 0)
  putStrLn $ f $ b >= (n - 1)

  where
    f True = "Yes"
    f False = "No"
