6 lines
184 B
Text
6 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"}}
|
||
|
|
]
|