solve :: Int -> Int -> String
solve x y =
    let ok = not . null . filter f $ [(c, t) | c <- [0..50], t <- [0..25]]
    in if ok then "Yes" else "No"
        where f (c, t) = c + t == x && 2*c + 4*t == y

main :: IO ()
main = do
    [x, y] <- map read . words <$> getLine
    putStrLn $ solve x y