Coprime triplets: Difference between revisions

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<lang Mathematica>ClearAll[NextTerm]

NextTerm[a_List] := Module[{pred1, pred2, cands},

{pred1, pred2} = Take[a, -2];

cands =

Select[Range[50], CoprimeQ[#, pred1] && CoprimeQ[#, pred2] &];

cands = Complement[cands, a];

If[Length[cands] > 0,

Append[a, First[cands]]

,

a

]

]

Nest[NextTerm, {1, 2}, 120]</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>