n, k = gets.rstrip.split(' ').map(&:to_f)

ans = 0.0
(1..[n, k].min).each do | i |
  # (Math.log(n) / Math.log(i*2)).ceil 回連続で勝たないとだめ
  ans += (1/n) * (1/2.0) ** (Math.log(k/i) / Math.log(2.0)).ceil
end

if n > k
  ans += (n-k)/n
end

p ans