import Foundation

let abc = readLine()!.split(separator: " ").compactMap { Int($0) }
let a = abc[0]
let b = abc[1]
let c = abc[2]
var bb:Int
var cc:Int
let k = Int(readLine()!)!
var tf = true
for i in 0..<k{
  bb = b
  cc = c
  cc *= Int(pow(Double(2),Double(i)))
  bb *= Int(pow(Double(2),Double((k-i))))
  if cc>bb && bb>a{
    tf = false
    print("Yes")
    break
  }
}
if tf{
  print("No")
}