Summation of primes: Difference between revisions

Content added Content deleted
Line 247: Line 247:
</lang>
</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>CTotal[Most@NestWhileList[NextPrime, 2, # < 2000000 &]]</lang>
<lang Mathematica>Total[Most@NestWhileList[NextPrime, 2, # < 2000000 &]]</lang>


{{out}}<pre>
{{out}}<pre>