ll z,p[1d6];{ll@n,@l;REP(i,Prime(l/--n+1,p))z-=~l+p[i]*n;wt(z>?=0);}