Special neighbor primes: Difference between revisions
add FreeBASIC
(add FreeBASIC) |
|||
Line 139:
{ 67 71 }
{ 73 79 }
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>#include"isprime.bas"
function nextprime( n as uinteger ) as uinteger
'finds the next prime after n
if n = 0 then return 2
if n < 3 then return n + 1
dim as integer q = n + 2
while not isprime(q)
q+=2
wend
return q
end function
dim as uinteger p1, p2
for p1 = 3 to 100 step 2
p2 = nextprime(p1)
if isprime(p1) andalso p2<100 andalso isprime( p1 + p2 - 1 ) then
print p1, p2, p1 + p2 - 1
end if
next p1
</lang>
{{out}}<pre>
3 5 7
5 7 11
7 11 17
11 13 23
13 17 29
19 23 41
29 31 59
31 37 67
41 43 83
43 47 89
61 67 127
67 71 137
73 79 151
</pre>
Line 217 ⟶ 256:
Found 103,611 special neighbor primes under 10,000,000.
</pre>
=={{header|jq}}==
| |||