import Data.List
import Data.IORef
import Control.Monad

main = do
  n <- readLn :: IO Int
  cnt2 <- newIORef 0 :: IO (IORef Int)
  cnt4 <- newIORef 0 :: IO (IORef Int)

  let
    func :: Int -> IO()
    func x = do
      when (mod x 2 == 0 && mod x 4 /= 0) (modifyIORef cnt2 (+1))
      when (mod x 4 == 0) (modifyIORef cnt4 (+1))

  a <- getLine >>=  (mapM_ func) . (map read) . words

  readIORef cnt2 >>=
    \x -> readIORef cnt4 >>=
    \y -> putStrLn (yesno (((if x/=1 then x else 0)+(if y /= 0 then 2*y+(if x/=0 then 0 else 1) else 0)) >= n ))

  where
    yesno True = "Yes"
    yesno False = "No"