let rec solve (a, b, c) rest =
    match rest with
    | 0 -> if a < b && b < c then "Yes" else "No"
    | rest ->
        if a > b then solve (a, b * 2, c) (rest - 1)
        else if b > c then solve (a, b, c * 2) (rest - 1)
        else solve (a, b, c) (rest - 1)

let [| a; b; c |] =
    stdin.ReadLine().Split(" ") |> Array.map int

stdin.ReadLine()
|> int
|> solve (a, b, c)
|> printfn "%s"