SCRIPT
DIM n,0
DIM b
DIMS t
OPENFILEOUT myf,out.txt
LABEL loop
SET n,n+1
IF n>500 THEN END
SET b,2
LABEL bou
SET b,b+1
IF b>60*n THEN GOTO loop
SETS t,%d,%d\,;n;b
PRP n*b^n-1,t
IF ISPRP THEN WRITE myf,t
IF ISPRP THEN GOTO loop
GOTO bou