Imports System

Module Program
    Sub Main(args As String())

        Dim RGB() As Integer = Console.ReadLine().Split(" ").Select(Function(x) Integer.Parse(x)).ToArray()
        Dim K As String = Console.ReadLine()

        Dim ans As String = "No"
        For i As Integer = 1 To K
            If RGB(0) < RGB(1) AndAlso RGB(1) < RGB(2) Then
                Exit For
            End If
            If RGB(1) >= RGB(2) Then
                RGB(2) *= 2
            Else
                If RGB(0) >= RGB(1) Then
                    RGB(1) *= 2
                End If
            End If
        Next
        If RGB(0) < RGB(1) AndAlso RGB(1) < RGB(2) Then
            ans = "Yes"
        End If

        Console.WriteLine(ans)

    End Sub
End Module
