Largest difference between adjacent primes: Difference between revisions
Content added Content deleted
(→{{header|Factor}}: add link to detailed explanation) |
|||
Line 166: | Line 166: | ||
290 R = P2 - P |
290 R = P2 - P |
||
300 RETURN</lang> |
300 RETURN</lang> |
||
=={{header|Julia}}== |
|||
<lang julia>using Primes |
|||
function maxprimeinterval(nmax) |
|||
pri = primes(nmax) |
|||
diffs = [pri[i] - pri[i - 1] for i in 2:length(pri)] |
|||
diff, idx = findmax(diffs) |
|||
println("The maximum prime interval in primes up to $nmax is $diff: for example at [$(pri[idx]), $(pri[idx + 1])].") |
|||
end |
|||
foreach(n -> maxprimeinterval(10^n), 1:10) |
|||
</lang>{{out}} |
|||
<pre> |
|||
The maximum prime interval in primes up to 10000 is 36: for example at [9551, 9587]. |
|||
The maximum prime interval in primes up to 100000 is 72: for example at [31397, 31469]. |
|||
The maximum prime interval in primes up to 1000000 is 114: for example at [492113, 492227]. |
|||
The maximum prime interval in primes up to 10000000 is 154: for example at [4652353, 4652507]. |
|||
The maximum prime interval in primes up to 100000000 is 220: for example at [47326693, 47326913]. |
|||
The maximum prime interval in primes up to 1000000000 is 282: for example at [436273009, 436273291]. |
|||
The maximum prime interval in primes up to 10000000000 is 354: for example at [4302407359, 4302407713]. |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |