ll@a,@b;wt(sum[x=a---b@isPrime(x)](x*x*x-x*x+x+1));