Cousin primes: Difference between revisions
Add BASIC
Catskill549 (talk | contribs) m (→{{header|AWK}}) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 54:
Cousin primes 1-1000: 41
</pre>
=={{header|BASIC}}==
<lang BASIC>10 DEFINT A-Z: L=1000: DIM S(L)
20 FOR P=2 TO SQR(L)
30 IF S(P) THEN 50
40 FOR K=P*P TO L STEP P: S(K)=1: NEXT
50 NEXT
60 N=0
70 FOR P=2 TO L-4
80 IF S(P)+S(P+4)=0 THEN N=N+1: PRINT P,P+4
90 NEXT
100 PRINT "There are";N;"cousin prime pairs below";L</lang>
{{out}}
<pre style="height:14em"> 3 7
7 11
13 17
19 23
37 41
43 47
67 71
79 83
97 101
103 107
109 113
127 131
163 167
193 197
223 227
229 233
277 281
307 311
313 317
349 353
379 383
397 401
439 443
457 461
463 467
487 491
499 503
613 617
643 647
673 677
739 743
757 761
769 773
823 827
853 857
859 863
877 881
883 887
907 911
937 941
967 971
There are 41 cousin prime pairs below 1000</pre>
=={{header|Factor}}==
| |||