Ramanujan primes: Difference between revisions
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 376:
<lang Mathematica>l = Table[PrimePi[x] - PrimePi[x/2], {x, 10^6}];
Multicolumn[1 + Position[l, #][[-1, 1]] & /@ Range[0, 99], {Automatic, 10}, Appearance -> "Horizontal"]
1 + Position[l, 999][[-1, 1]]
1 + Position[l, 9999][[-1, 1]]</lang>
Line 390 ⟶ 389:
1087 1091 1097 1103 1151 1163 1187 1217 1229 1249
1277 1289 1297 1301 1367 1373 1423 1427 1429 1439
19403
| |||