Yellowstone sequence: Difference between revisions

</pre>

=={{header|PicoLisp}}==

<lang ruby>def yellow(n)

a = [1, 2, 3]

b = { 1 => true, 2 => true, 3 => true }

i = 4

while n > a.length

if !b[i] && i.gcd(a[-1]) == 1 && i.gcd(a[-2]) > 1

a << i

b[i] = true

i = 4

end

i += 1

end

a

end

p yellow(30)</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]