ll N,L,x,p[2d7],j;
{
	rd(N,L);
	rep(i,2,3d3){
		for(j=i;!p[i]&j<1d7;){
			p[j+=i]=1;
		}
	}
	rep(i,2,L/~-N+1){
		x-=p[i]?0:~L+i*~-N;
	}
	wt(x);
}