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