import Control.Applicative
import Data.Bool (bool)

main :: IO ()
main = solve <$> f <*> readLn >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> Int -> String
solve [a, b, c] k = let (b', k') = f a b 0
                        (_, k'') = f b' c k'
                    in bool "No" "Yes" $ k >= k''
  where
    f x y z = if x < y then (y, z) else f x (2 * y) (z + 1)
