Earliest difference between prime gaps: Difference between revisions
J
m (minimum prime gaps were not defined here, but adjacent prime gaps were defined here. and we have a table here illustrating some example minimum occurrences of such gaps.) |
(J) |
||
Line 268:
Gap 276 starts at 649,580,171, gap 278 starts at 4,260,928,601, difference is 3,611,348,430.
</pre>
=={{header|J}}==
Implementation:
<lang J>lowpgap=: {{
magnitude=. ref=. 10^y
whilst. -.1 e. ok do.
magnitude=. 10*magnitude
g=. 2-~/\ p=.p: i.magnitude
mag=. p{~}.g i. i.&.-: >./g NB. minimum adjacent gaps
dif=. 2-~/\ mag
ok=. ref < dif
end.
(0 1+ok i.1){mag
}}</lang>
Task examples:
<lang J> lowpgap 1
7 23
lowpgap 2
113 1831
lowpgap 3
113 1831
lowpgap 4
9551 30593
lowpgap 5
31397 404597
lowpgap 6
396733 1444309
lowpgap 7
2010733 13626257</lang>
=={{header|Java}}==
| |||