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