# 自分のローカル（Celeron 2.7GHz）だと、
# 今までの提出物全部2秒以内で実行終わるんだけどなあ・・・

SS = gets.split
N = SS[0].to_i
P = 1 - SS[1].to_f

sum = 0
A = Array.new(N + 1, 0)
V = {}
(2..N).each do |n|
  m = n * 2
  while m <= N do
    A[m] += 1
    m += n
  end
  v = V[A[n]]
  v = V[A[n]] = P ** A[n] unless v
  sum += v
end

puts sum