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 (g n x y))

  where
    yesno True = "Yes"
    yesno False = "No"
    
    g n x y = yy+xx >= n
      where
        yy = 2*y+1
        xx = if x<=1 then 0 else x

