Revision as of 11:35, 5 September 2021 view source Shuisman (talk \| contribs) 1,111 edits m →‎{{header\|Mathematica}}/{{header\|Wolfram Language}} ← Older edit		Revision as of 11:35, 5 September 2021 view source Shuisman (talk \| contribs) 1,111 edits m →‎{{header\|Mathematica}}/{{header\|Wolfram Language}} Newer edit →
Line 799: TableForm[ Select[Transpose[{Range[Length[p]], p, Accumulate[p]}], Last /* PrimeQ], TableHeadings -> {None, {"Prime count", "Prime", "Prime sum"}} ]</lang> {{out}}

Summarize primes: Difference between revisions