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