OFFSET
1,1
PROG
(PARI) {a=2; v=Set([]); for(n=2, 60, k=1; b=1; while(b, m=k*n; p=abs(m-a); if(gcd(m, n+1)==1&&isprime(p)&&setsearch(v, p)==0, v=setunion(v, Set(p)); print1(p, ", "); a=m; b=0, k++)))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Jul 14 2004
STATUS
approved