import Foundation

precedencegroup PowerPrecedence {
    higherThan: MultiplicationPrecedence
}
infix operator ^^: PowerPrecedence
func ^^(radix: Int, power: Int) -> Int {
    Int(pow(Double(radix), Double(power)))
}

let abc = readLine()!
    .split(separator: " ")
    .map { Int($0)! }
let a = abc[0]
let b = abc[1]
let c = abc[2]
let limit = Int(readLine()!)!
var result = false

LOOP:
for i in 0..<min(3, limit) {
    for j in i..<min(i+3, limit) {
        for k in j..<min(j+3, limit) {
            if c * 2 ^^ k > b * 2 ^^ j && b * 2 ^^ j > a * 2 ^^ i {
                result = true
                break LOOP
            }
        }
    }
}

print(result ? "Yes" : "No")
