14 lines
335 B
Plaintext
14 lines
335 B
Plaintext
GCD=: +.
|
|
relatively_prime=: 1 = GCD
|
|
|
|
yellowstone=: {{
|
|
s=. 1 2 3 NB. initial sequence
|
|
while. y > # s do.
|
|
z=. <./(1+s)-.s NB. lowest positive inteeger not in sequence
|
|
while. if. 0 1 -: z relatively_prime _2{.s do. z e. s end. do.
|
|
z=. z+1
|
|
end. NB. find next value for sequence
|
|
s=. s, z
|
|
end.
|
|
}}
|