
module Main where

import Debug.Trace

main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  --a `traceShow`
  putStrLn $ solve a b


solve :: Int -> Int -> String
solve a b = search (a, 0) b


search :: (Int, Int) -> Int -> String
search (0, _) _ = "No"
search (a, b) z
  | c == z = "Yes"
  | c < z = search (a - 1, b + 1) z
  | c > z = "No"
  | otherwise = undefined
  where
    c = a * 2 + b * 4
