program pr1
  implicit none
  integer :: a, b, c, k, btmp, ctmp
  integer :: i, j
  read(*,*) a,b,c
  read(*,*) k

  do i = 0, k
     do j = 0, i
        btmp = b*(2**j)
        ctmp = c*(2**(i-j))
        if ( a < btmp .and. btmp < ctmp ) then
           write(*,'(a)') 'Yes'
           stop
        end if
     end do
  end do
  write(*,'(a)') 'No'
  
  stop
end program pr1
