N, p = gets.split.map(&:to_f)
q = Array.new(N + 1, 0)
2.upto(N) do |i|
  2.upto(N / i) do |j|
    q[i * j] += 1
  end
end
ans = q[2..-1].map {|k| (1-p)**k}.inject(:+)
puts ans