Next special primes: Difference between revisions
add FreeBASIC
(→{{header|F_Sharp|F#}}: Alternative added to improve clarity) |
(add FreeBASIC) |
||
Line 272:
2 (1) 3 (2) 5 (6) 11 (8) 19 (10) 29 (12) 41 (18) 59 (20) 79 (22) 101 (26) 127 (30) 157 (34) 191 (36) 227 (42) 269 (44) 313 (46) 359 (50) 409 (52) 461 (60) 521 (66) 587 (72) 659 (74) 733 (76) 809 (78) 887 (80) 967 (82) 1049
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>#include "isprime.bas"
dim as integer p = 3, i = 2
print "2 3 "; 'special case
do
if isprime( p + i ) then
p += i
print p;" ";
end if
i += 2
loop until p+i >=1050 : print</lang>
{{out}}<pre>2 3 5 11 19 29 41 59 79 101 127 157 191 227 269 313 359 409 461 521 587 659 733 809 887 967 1049</pre>
=={{header|Go}}==
| |||