Summarize primes: Difference between revisions
Content deleted Content added
m Promoted to full task - there are quite a few solutions now |
|||
Line 794: | Line 794: | ||
The sum of the 162 primes from prime 2 to prime 953 is 70241, which is prime. |
The sum of the 162 primes from prime 2 to prime 953 is 70241, which is prime. |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>p = Prime[Range[PrimePi[1000]]]; |
|||
TableForm[ |
|||
Select[Transpose[{Range[Length[p]], p, Accumulate[p]}], Last /* PrimeQ], |
|||
TableHeadings -> {None, {"Prime count", "Prime", "Prime sum"}} |
|||
]</lang> |
|||
{{out}} |
|||
<pre>Prime count Prime Prime sum |
|||
1 2 2 |
|||
2 3 5 |
|||
4 7 17 |
|||
6 13 41 |
|||
12 37 197 |
|||
14 43 281 |
|||
60 281 7699 |
|||
64 311 8893 |
|||
96 503 22039 |
|||
100 541 24133 |
|||
102 557 25237 |
|||
108 593 28697 |
|||
114 619 32353 |
|||
122 673 37561 |
|||
124 683 38921 |
|||
130 733 43201 |
|||
132 743 44683 |
|||
146 839 55837 |
|||
152 881 61027 |
|||
158 929 66463 |
|||
162 953 70241</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |