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