let read_ints () =
  let str = read_line() in
  List.map (fun x -> int_of_string x) (Str.split (Str.regexp " +") str)
;;

let str = read_ints() in
match str with
|x :: [y] -> if (y mod 2 = 0 && y >= 2 * x && y <= 4*x) then print_endline "Yes" else print_endline "No"
|_ -> ()
