main = do
    xs <- getLine >>= return . words
    let toInt = (read :: String -> Int) 
    let lx = toInt $ xs !! 0
    let ly = toInt $ xs !! 1
    let con = [(x,y) | x <- [0..lx], y <- [0..(lx-x)], x * 2 + y * 4 == ly] 
    putStr $ if length con > 0 then "Yes" else "No"