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