
Imports System.Console
Module Module1
    Dim ans As Integer
    Sub Main()
        Dim a, b, c As Integer
        Dim s() As String = ReadLine().Split()
        a = s(0)
        b = s(1)
        c = s(2)
        Dim k As Integer = ReadLine()
        Dim sousa As Integer
        Do Until b > a
            b *= 2
            sousa += 1
        Loop
        Do Until c > b
            c *= 2
            sousa += 1
        Loop
        If sousa > k Then
            WriteLine("No")
        Else
            WriteLine("Yes")
        End If
    End Sub
End Module
