main = do
  li <- getLine
  let [a,b,c] = map read $ words li
  li <- getLine
  let k = read li
  putStrLn $ if compute a b c k then "Yes" else "No"

compute :: Int -> Int -> Int -> Int -> Bool
compute a b c k
  | a < b && b < c = True
  | k == 0 = False
  | a < b  = compute a b (c*2) (pred k)
  | True   = compute a (b*2) c (pred k)
