10001th prime: Difference between revisions
→{{header|Python}}
Line 541:
{{out}}
<pre>10001 104743 7 seconds</pre>
=={{header|QB64}}==
<lang QB64>max = 10001: n=0: s=1 ' PRIMES.bas russian DANILIN
While n <= max ' 10001 104743 2.5 seconds
f=0
For j=2 To s^0.5
If s Mod j = 0 Then f=1
Next
If f=0 Then n = n+1
s = s+1
Wend
Print n-1, s-1</lang>
{{out}}
<pre>10001 104743 2.5 seconds</pre>
=={{header|R}}==
| |||