a,b,c = gets.split.map(&:to_i)
k = gets.to_i

ans = 'No'
(0..k).each do |i|
    (1..k-1).each do |j|
        if a < b * (2 ** i) && b * (2 ** i) < c * (2 ** j)
            ans =  'Yes'
            break
        end
    end
end

puts ans