program magic_2
  implicit none
  integer :: a, b, c, k, n = 0
  read(*,*) a, b, c
  read(*,*) k
  do while (b <= a)
    b = 2 * b
    n = n + 1
  end do
  do while (c <= b)
    c = 2 * c
    n = n + 1
  end do
  write(*,'(a)') trim(merge('No ', 'Yes', n > k))
end program magic_2