
Module Module1

    Sub main()
        Dim user2 = Split(Console.ReadLine(), " ")
        Dim sumAnimals As Integer = user2(0)
        Dim legs As Integer = user2(1)
        Const TSURU = 2, KAME = 4

        Dim result = "No"
        ' 亀の数

        For i = sumAnimals To 0 Step -1
            If i * KAME + (sumAnimals - i) * TSURU = legs Then
                result = "Yes"
                Exit For
            End If
        Next

        Console.WriteLine(result)
    End Sub
end module