Summarize primes: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 799:
TableForm[
Select[Transpose[{Range[Length[p]], p, Accumulate[p]}], Last /* PrimeQ],
TableHeadings -> {None, {"Prime count", "Prime", "Prime sum"}}
]</lang>
{{out}}
| |||