Stern-Brocot sequence: Difference between revisions

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

<lang Mathematica>sb = {1, 1};

Do[

sb = sb~Join~{Total@sb[[i - 1 ;; i]], sb[[i]]}

,

{i, 2, 1000}

]

Take[sb, 15]

Flatten[FirstPosition[sb, #] & /@ Range[10]]

First@FirstPosition[sb, 100]

AllTrue[Partition[Take[sb, 1000], 2, 1], Apply[GCD] /* EqualTo[1]]</lang>

{{out}}

<pre>{1, 1, 2, 1, 3, 2, 3, 1, 4, 3, 5, 2, 5, 3, 4}

{1, 3, 5, 9, 11, 33, 19, 21, 35, 39}

1179

True</pre>