p = Prime[Range[PrimePi[1000]]];
TableForm[
 Select[Transpose[{Range[Length[p]], p, Accumulate[p]}], Last /* PrimeQ],
 TableHeadings -> {None, {"Prime count", "Prime", "Prime sum"}}
]