import Data.List

isLeg :: Int -> Int -> Int -> Int
isLeg x y legs
  | 2 * x + 4 * y == legs = x + y
  | otherwise = 0

legCount :: Int -> Int -> Int
legCount animals legs =
    sum $ map (\x -> isLeg x (animals - x) legs) [1..animals]

main = do
    [b,c] <- map read . words <$> getLine
    let l = legCount b c
    putStrLn $ if l > 0 then "Yes" else "No"
