Yellowstone sequence: Difference between revisions

=={{header|Quackery}}==

<code>gcd</code> is defined at [[Greatest common divisor#Quackery]].

<lang Quackery> [ stack ] is seqbits ( --> s )

[ bit

seqbits take |

seqbits put ] is seqadd ( n --> )

[ bit

seqbits share & not ] is notinseq ( n --> b )

[ temp put

' [ 1 2 3 ]

7 seqbits put

4

[ dip

[ dup -1 peek

over -2 peek ]

dup dip

[ tuck gcd 1 !=

unrot gcd 1 =

and ]

swap if

[ dup dip join

seqadd

3 ]

[ 1+

dup notinseq until ]

over size temp share

< not until ]

drop

seqbits release

temp take split drop ] is yellowstones ( n --> [ )

30 yellowstones echo</lang>

{{out}}

<pre>[ 1 2 3 4 9 8 15 14 5 6 25 12 35 16 7 10 21 20 27 22 39 11 13 33 26 45 28 51 32 17 ]</pre>