OFFSET
2,1
LINKS
Pierre CAMI, Table of n, a(n) for n = 2..250
PROG
( PFGW & SCRIPTIFY )
SCRIPT
DIM n, 1
DIM k
DIM q
DIM pp
DIMS t
OPENFILEOUT myfile, a(n).txt
LABEL a
SET n, n+1
IF n>250 THEN END
SET k, 0
LABEL b
SET k, k+1
SET q, p(k)
SETS t, %d, %d\,; n; q
SET pp, 2*p(n)*q^p(n)-1
PRP pp, t
IF ISPRP THEN GOTO c
GOTO b
LABEL c
WRITE myfile, t
GOTO a
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, May 13 2013
STATUS
approved