A,B,C = gets.chomp.split.map &:to_i
K = gets.chomp.to_i
dec_cnt = 0
clr_flg = true

(1..K).each do |k|
  if A > B
    B *= 2
    dec_cnt += 1
    clr_flg = false if A > B
    next
  end
  if A > C
    C *= 2
    dec_cnt += 1
    clr_flg = false if A > C
    next
  end
end

#print K, dec_cnt

if K >= dec_cnt && clr_flg
  print "Yes" 
else
  print "No" 
end

