int@A,@++B,P[B];B=Prime(B,P);wt(sum[i,0,B@P[i]>=A](1+P[i]*(1-P[i]*(1-P[i]))));