Cousin primes: Difference between revisions

</pre>

=={{header|FreeBASIC}}==

Use one of the primality testing examples as an include.

<lang freebasic>#include "isprime.bas"

dim as uinteger c=0, i

for i = 3 to 995

if isprime(i+4) andalso isprime(i) then

c += 1

print using "Pair ##: #### and ####"; c; i; i+4

end if

next i</lang>

{{out}}

<pre style="height:16em">

Pair 1: 3 and 7

Pair 2: 7 and 11

Pair 3: 13 and 17

Pair 4: 19 and 23

Pair 5: 37 and 41

Pair 6: 43 and 47

Pair 7: 67 and 71

Pair 8: 79 and 83

Pair 9: 97 and 101

Pair 10: 103 and 107

Pair 11: 109 and 113

Pair 12: 127 and 131

Pair 13: 163 and 167

Pair 14: 193 and 197

Pair 15: 223 and 227

Pair 16: 229 and 233

Pair 17: 277 and 281

Pair 18: 307 and 311

Pair 19: 313 and 317

Pair 20: 349 and 353

Pair 21: 379 and 383

Pair 22: 397 and 401

Pair 23: 439 and 443

Pair 24: 457 and 461

Pair 25: 463 and 467

Pair 26: 487 and 491

Pair 27: 499 and 503

Pair 28: 613 and 617

Pair 29: 643 and 647

Pair 30: 673 and 677

Pair 31: 739 and 743

Pair 32: 757 and 761

Pair 33: 769 and 773

Pair 34: 823 and 827

Pair 35: 853 and 857

Pair 36: 859 and 863

Pair 37: 877 and 881

Pair 38: 883 and 887

Pair 39: 907 and 911

Pair 40: 937 and 941

Pair 41: 967 and 971