(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