import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS

readInt = fst . fromJust . BS.readInteger
readIntList = map readInt . BS.words

getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
  s <- getIntList

  let x = head s
  let y = s !! 1
  let t = ((4 * x) - y) `div` 2
  let k = (y - (2 * x)) `div` 2

  if t > 0 && k > 0 then putStrLn "Yes"
                    else putStrLn "No"