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