input = readlines()
r, g, b = input.shift.chomp.split("\s").map{|x| x.to_i}
k = input.shift.chomp.to_i

patterns = [['r'], ['g'], ['b']]

def addNext(current)
  tmp = []
  current.each do |c|
    ['r', 'g', 'b'].each do |n|
      nc = c.clone
      nc.push(n)
      tmp.push(nc)
    end
  end
  return tmp
end

(2..k).each do |t|
  patterns = addNext(patterns)
end


patterns.each do |pattern|
  tmp = {'r' => r, 'g' => g, 'b' => b}
  pattern.each do |target_color|
    tmp[target_color] = tmp[target_color] * 2
  end
  if tmp['g'] > tmp['r'] && tmp['b'] > tmp['g']
    puts 'Yes'
    exit()
  end
end

puts 'No'
