include Math

s, q = gets.to_s.split.map{|t| t.to_i }

ans = (1.0 .. 10 ** 18).bsearch do |n|
        n ** 2 >= s + q * n * log2(n)
      end

puts ans