(PFGW & SRIPTIFY)
SCRIPT
DIM j
DIM k
DIM n, 0
DIM q
DIM r
DIM s
DIMS t
OPENFILEOUT myf, a(n).txt
LABEL a
SET n, n+1
SET j, p(n)
SET k, 0
LABEL b1
SET k, k+1
SETS t, %d, %d, %d\,; k; j; 1
SET q, k*2*j^4-1
PRP q, t
IF ISPRP THEN GOTO c1
GOTO b5
LABEL c1
SET r, k*2*q^4-1
PRP r, t
IF ISPRP THEN GOTO d1
GOTO b3
LABEL d1
SET s, k*2*r^4-1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b2
SETS t, %d, %d, %d\,; k; j; 2
SET s, k*2*r^4+1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b3
SETS t, %d, %d, %d\,; k; j; 3
SET r, k*2*q^4+1
PRP r, t
IF ISPRP THEN GOTO d3
GOTO b5
LABEL d3
SET s, k*2*r^4-1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b4
SETS t, %d, %d, %d\,; k; j; 4
SET s, k*2*r^4+1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b5
SETS t, %d, %d, %d\,; k; j; 5
SET q, k*2*j^4+1
PRP q, t
IF ISPRP THEN GOTO c5
GOTO b1
LABEL c5
SET r, k*2*q^4+1
PRP r, t
IF ISPRP THEN GOTO d5
GOTO b7
LABEL d5
SET s, k*2*r^4+1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b6
SETS t, %d, %d, %d\,; k; j; 6
SET s, k*2*r^4-1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b7
SETS t, %d, %d, %d\,; k; j; 7
SET r, k*2*q^4-1
PRP r, t
IF ISPRP THEN GOTO d7
GOTO b1
LABEL d7
SET s, k*2*r^4+1
PRP s, t
IF ISPRP THEN GOTO ww
LABEL b8
SETS t, %d, %d, %d\,; k; j; 8
SET s, k*2*r^4-1
PRP s, t
IF ISPRP THEN GOTO ww
GOTO b1
LABEL ww
WRITE myf, t
GOTO a