OFFSET
1,1
MATHEMATICA
Select[Range[360], {} != Solve[p*q-p-q == # && p >q> 2, {p, q}, Primes] &] (* Giovanni Resta, Jan 16 2020 *)
PROG
(PARI) lim=1000; x=[]; forprime(p=3, lim/3, forprime(q=p+2, lim/3, if(setsearch(x, p*q-q-p), , x=setunion(x, [p*q-q-p])))); for(i=1, length(x), if(x[i]<(lim), print1(x[i], ", ")))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Craig J. Beisel, Nov 22 2019
STATUS
approved