A329857 Positive integers which can be represented as p*q - p - q where p and q are distinct odd primes.
7, 11, 19, 23, 31, 35, 39, 43, 47, 55, 59, 63, 71, 79, 83, 87, 91, 95, 103, 107, 111, 115, 119, 131, 139, 143, 155, 159, 163, 167, 175, 179, 183, 191, 199, 203, 207, 211, 215, 219, 223, 231, 239, 251, 259, 263, 271, 275, 279, 287, 295, 299, 311, 323, 327, 331, 335, 343, 347, 351, 355, 359
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[360], {} != Solve[p*q-p-q == # && p >q> 2, {p,q}, Primes] &] (* Giovanni Resta, Jan 16 2020 *) -
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], ", ")))