Table[Integrate[PrimePi[n- x] PrimePi[x], {x, 0, n}],{n,1,20}]