double p,x,n,a[2d6];{rd(n,p);rep(i,2,n+1)x+=(1-p)**a[i],++a[(2..n/i)*i];wt(x);}