Yellowstone sequence: Difference between revisions

Content added Content deleted
m (→‎{{header|Wren}}: Minor tidy)
Line 838: Line 838:
num = 4
num = 4
while len yellow[] < count
while len yellow[] < count
yell1 = yellow[len yellow[] - 1]
yell2 = yellow[len yellow[]]
for i to len notyellow[]
for i to len notyellow[]
test = notyellow[i]
test = notyellow[i]
if gcd yellow[-2] test > 1 and gcd yellow[-1] test = 1
if gcd yell1 test > 1 and gcd yell2 test = 1
break 1
break 1
.
.
Line 848: Line 850:
remove_at i notyellow[]
remove_at i notyellow[]
else
else
while gcd yellow[-2] num <= 1 or gcd yellow[-1] num <> 1
while gcd yell1 num <= 1 or gcd yell2 num <> 1
notyellow[] &= num
notyellow[] &= num
num += 1
num += 1