main :: IO ()
main = do
       [x,y] <- (map read . words) <$> getLine
       putStrLn $ solve x y
       
solve :: Int -> Int -> String
solve x y | fold [0..x] y False == True = "Yes"
          | otherwise        = "No"

fold :: [Int] -> Int -> Bool -> Bool
fold _ _ True = True
fold [] _ False = False 
fold (x'@(x:xs)) y False | 2*x + 4*((last x') - x) == y = fold xs y True
                         | otherwise                    = fold xs y False