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