ll@n,z=0;
int p[1d5];
REP[p](x,Prime(1d5,p)){
	for(ll y=x;y*=x,y<=n;){
		z+=y;
	}
}
wt(z);