Initial data commit

Task/Yellowstone-sequence/PureBasic/yellowstone-sequence.basic

@@ -0,0 +1,18 @@
+Procedure.i gcd(x.i,y.i)
+  While y<>0 : t=x : x=y : y=t%y : Wend : ProcedureReturn x
+EndProcedure
+
+If OpenConsole()
+  Dim Y.i(100)
+  For i=1 To 100
+    If i<=3 : Y(i)=i : Continue : EndIf : k=3
+    Repeat
+      RepLoop:
+      k+1
+      For j=1 To i-1 : If Y(j)=k : Goto RepLoop : EndIf : Next
+      If gcd(k,Y(i-2))=1 Or gcd(k,Y(i-1))>1 : Continue : EndIf
+      Y(i)=k : Break
+    ForEver
+  Next
+  For i=1 To 30 : Print(Str(Y(i))+" ") : Next : Input()
+EndIf