ll@N,L=1d5,P[L]{},a=0,q;rep(p,2,L)if(!P[q=p]){rep(m,p,L,p)P[m]=1;while((q*=p)<=N)a+=q;}wt(a);