View source for Coprime triplets

{{Draft task|Prime Numbers}}

;Task:
Find and show the smallest number which is coprime to the last two predecessors and has not yet appeared; a(1)=1, a(2)=2.
<br>p and q are coprimes if they have no common factors other than 1.
<br> Let '''p, q < 50'''
<br><br>

=={{header|FreeBASIC}}==
<lang freebasic>function gcd( a as uinteger, b as uinteger ) as uinteger
    if b = 0 then return a
    return gcd( b, a mod b )
end function

function num_in_array( array() as integer, num as integer ) as boolean
    for i as uinteger = 1 to ubound(array)
        if array(i) = num then return true
    next i
    return false
end function

redim as integer trips(1 to 2)
trips(1) = 1 : trips(2) = 2
dim as integer last

do
    last = ubound(trips)
    for q as integer = 1 to 49
        if not num_in_array( trips(), q ) _
          andalso gcd(q, trips(last)) = 1 _
          andalso gcd(q, trips(last-1)) = 1 then
            redim preserve as integer trips( 1 to last+1 )
            trips(last+1) = q
            continue do 
        end if
    next q
    exit do
loop

print using "Found ## terms:"; ubound(trips)

for i as integer = 1 to last
    print trips(i);" ";
next i : print</lang>
{{out}}
<pre>
Found 36 terms:
1  2  3  5  4  7  9  8  11  13  6  17  19  10  21  23  16  15  29  14  25  27  22  31  35  12  37  41  18  43  47  20  33  49  26  45
</pre>

=={{header|Phix}}==
<!--<lang Phix>(phixonline)-->
 <span style="color: #008080;">function</span> <span style="color: #000000;">coprime_triplets</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">less_than</span><span style="color: #0000FF;">=</span><span style="color: #000000;">50</span><span style="color: #0000FF;">)</span>
     <span style="color: #004080;">sequence</span> <span style="color: #000000;">cpt</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">}</span>
     <span style="color: #008080;">while</span> <span style="color: #004600;">true</span> <span style="color: #008080;">do</span>
         <span style="color: #004080;">integer</span> <span style="color: #000000;">m</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
         <span style="color: #008080;">while</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">m</span><span style="color: #0000FF;">,</span><span style="color: #000000;">cpt</span><span style="color: #0000FF;">)</span> 
            <span style="color: #008080;">or</span> <span style="color: #7060A8;">gcd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">m</span><span style="color: #0000FF;">,</span><span style="color: #000000;">cpt</span><span style="color: #0000FF;">[$])!=</span><span style="color: #000000;">1</span>
            <span style="color: #008080;">or</span> <span style="color: #7060A8;">gcd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">m</span><span style="color: #0000FF;">,</span><span style="color: #000000;">cpt</span><span style="color: #0000FF;">[$-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">])!=</span><span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
             <span style="color: #000000;">m</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
         <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
         <span style="color: #008080;">if</span> <span style="color: #000000;">m</span><span style="color: #0000FF;">>=</span><span style="color: #000000;">less_than</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
         <span style="color: #000000;">cpt</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">m</span>
     <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
     <span style="color: #008080;">return</span> <span style="color: #000000;">cpt</span>
 <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
 <span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">,{{</span><span style="color: #008000;">"%2d"</span><span style="color: #0000FF;">},</span><span style="color: #000000;">coprime_triplets</span><span style="color: #0000FF;">()})</span>
 <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Found %d coprime triplets:\n%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">)})</span>
<!--</lang>-->
{{out}}
<pre>
Found 36 coprime triplets:
 1  2  3  5  4  7  9  8 11 13
 6 17 19 10 21 23 16 15 29 14
25 27 22 31 35 12 37 41 18 43
47 20 33 49 26 45
</pre>

=={{header|Raku}}==
<lang perl6>my @coprime-triplets = 1,2, {
   state %seen = 1, True, 2, True;
   sink $^a, $^b;
   my $n = (3 .. *).first: { !%seen{$_} && ($_ gcd $a == 1) && ($_ gcd $b == 1) }
   %seen{$n} = True;
   $n   
} … *;

put "Coprime triplets less than 50:\n",
@coprime-triplets[^(@coprime-triplets.first: * > 50, :k)].batch(10)».fmt("%4d").join: "\n";

put "\n1000th through 1025th Coprime triplet:\n",
@coprime-triplets[999..1024].batch(10)».fmt("%4d").join: "\n";</lang>
{{out}}
<pre>Coprime triplets less than 50:
   1    2    3    5    4    7    9    8   11   13
   6   17   19   10   21   23   16   15   29   14
  25   27   22   31   35   12   37   41   18   43
  47   20   33   49   26   45

1000th through 1025th Coprime triplet:
1355  682 1293 1361  680 1287 1363  686 1299 1367
 688 1305 1369  692 1311 1373  694 1317 1375  698
1323 1381  704 1329 1379  706</pre>

=={{header|Ring}}==
<lang ring>
see "working..." + nl
row = 2
numbers = 1:50
first = 1
second = 2
see "Coprime triplets are:" + nl
see "" + first + " " + second + " "

     for n = 3 to len(numbers)
         flag1 = 1
         flag2 = 1
         if first < numbers[n]
            min = first
         else
            min = numbers[n]
         ok
         for m = 2 to min
             if first%m = 0 and numbers[n]%m = 0
                flag1 = 0
                exit
             ok
         next
         if second < numbers[n]
            min = second
         else
            min = numbers[n]
         ok
         for m = 2 to min
             if second%m = 0 and numbers[n]%m = 0 
                flag2 = 0
                exit
             ok
         next
         if flag1 = 1 and flag2 = 1
            see "" + numbers[n] + " "
            first = second 
            second = numbers[n] 
            del(numbers,n)
            row = row+1
            if row%10 = 0
               see nl
            ok
            n = 2
         ok
    next

    see nl + "Found " + row + " coprime triplets" + nl
    see "done..." + nl
</lang>
{{out}}
<pre>
working...
Coprime triplets are:
1 2 3 5 4 7 9 8 11 13 
6 17 19 10 21 23 16 15 29 14 
25 27 22 31 35 12 37 41 18 43 
47 20 33 49 26 45 
Found 36 coprime triplets
done...
</pre>

=={{header|Wren}}==
{{trans|Phix}}
{{libheader|Wren-math}}
{{libheader|Wren-seq}}
{{libheader|Wren-fmt}}
<lang ecmascript>import "/math" for Int
import "/seq" for Lst
import "/fmt" for Fmt

var limit = 50
var cpt = [1, 2]

while (true) {
    var m = 1
    while (cpt.contains(m) || Int.gcd(m, cpt[-1]) != 1 || Int.gcd(m, cpt[-2]) != 1) {
        m = m + 1
    }
    if (m >= limit) break
    cpt.add(m)
}
System.print("Coprime triplets under %(limit):")
for (chunk in Lst.chunks(cpt, 10)) Fmt.print("$2d", chunk)
System.print("\nFound %(cpt.count) such numbers.")</lang>

{{out}}
<pre>
Coprime triplets under 50:
 1  2  3  5  4  7  9  8 11 13
 6 17 19 10 21 23 16 15 29 14
25 27 22 31 35 12 37 41 18 43
47 20 33 49 26 45

Found 36 such numbers.
</pre>