main = do
    li <- getLine
    let [x,y] = map read $ words li
    let ans = compute x y
    putStrLn $ if ans then "Yes" else "No"

-- t + k = x, 2t + 4k = y
-- 2k = y - 2x, k = y/2 - x, t = x - k
compute x y = even y && k >= 0 && t >= 0
  where
    k = y `div` 2 - x
    t = x - k