program abc20
 implicit none
 integer::A,B,C,K,ia,ib,ic
 read(*,*)A,B,C
 read(*,*)K
 do ia=0,K
  do ib=0,K-ia
   do ic=0,K-ia-ib
    if(A*2**ia<B*2**ib.and.B*2**ib<C*2**ic)then
     print'(a)',"Yes"
     stop
    end if
   end do
  end do
 end do
 print'(a)',"No"
end program abc20