Cousin primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 164: / Line 164: @@
                 # have a pair of cousin primes #
                 p count +:= 1;
-                IF ODD p count THEN
+                print( ( whole( i, -5 ), "-", right pad( whole( i + 4, 0 ), 5 ) ) );
-                    print( ( whole( p count, -5 ), ":  ", whole( i, -5 ), "-", right pad( whole( i + 4, 0 ), 5 ) ) )
+                IF p count MOD 10 = 0 THEN print( ( newline ) ) FI
-                ELSE
-                    print( ( "   ", whole( i, -5 ), "-", whole( i + 4, 0 ), newline ) )
-                FI
             FI
         FI
@@ Line 176: / Line 173: @@
 {{out}}
 <pre>
-:      3-7           7-11
+-7        7-11      13-17      19-23      37-41      43-47      67-71      79-83      97-101    103-107
+-113    127-131    163-167    193-197    223-227    229-233    277-281    307-311    313-317    349-353
-:     13-17         19-23
+-383    397-401    439-443    457-461    463-467    487-491    499-503    613-617    643-647    673-677
-:     37-41         43-47
+-743    757-761    769-773    823-827    853-857    859-863    877-881    883-887    907-911    937-941
-:     67-71         79-83
+-971
-:     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
 Found 41 cousin primes
 </pre>