;XIncludeFile "isprime.pb"

OpenConsole()
Define.i sum, i, n
PrintN("1" + #TAB$ +  "2" + #TAB$ + "2")
sum = 2
n = 1
For i = 3 To 999 Step 2
  If isPrime(i):
    sum + i
    n + 1
    If isPrime(sum):
      PrintN(Str(n) + #TAB$ +  Str(i) + #TAB$ + Str(sum))
    EndIf
  EndIf
Next i

Input()
CloseConsole()