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