      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: p = 16
      integer(p) :: a,b,c,k, x,y,z, aa,bb,cc
      
      read*,a,b,c
      read*,k
      
      do x = 0,k
        do y = 0,k
          do z = 0,k
            if( x+y+z>k ) cycle
            
            aa = a**(2**(x))
            bb = b**(2**(y))
            cc = c**(2**(z))
                        
            if( bb>aa .and. cc>bb )then
              print*,'Yes'
              stop
            end if
          end do
        end do
      end do
      
      print*,'No'
      
      
      
      
      stop
      !debugg
      
      
      
      END PROGRAM