Ramanujan primes: Difference between revisions
Content added Content deleted
| Line 374: | Line 374: | ||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>l = |
<lang Mathematica>l = PrimePi[Range[10^6]] - PrimePi[Range[10^6]/2]; |
||
Multicolumn[1 + Position[l, #][[-1, 1]] & /@ Range[0, 99], {Automatic, 10}, Appearance -> "Horizontal"] |
Multicolumn[1 + Position[l, #][[-1, 1]] & /@ Range[0, 99], {Automatic, 10}, Appearance -> "Horizontal"] |
||
1 + Position[l, 999][[-1, 1]] |
1 + Position[l, 999][[-1, 1]] |
||