Coprime triplets: Difference between revisions

Content added Content deleted
(Added Delphi example)
Line 364: Line 364:
47 20 33 49 26 45
47 20 33 49 26 45
</pre>
</pre>

=={{header|Nim}}==
<lang Nim>import math, strutils

var list = @[1, 2]

while true:
var n = 3
let prev2 = list[^2]
let prev1 = list[^1]
while n in list or gcd(n, prev2) != 1 or gcd(n, prev1) != 1:
inc n
if n >= 50: break
list.add n

echo list.join(" ")</lang>

{{out}}
<pre>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|Perl}}==
=={{header|Perl}}==