OFFSET
1,1
MATHEMATICA
x = Take[ Select[ Union[ Flatten[ Table[ Prime[p]*Prime[q] + Prime[p] - Prime[q], {p, 116}, {q, 116}]]], PrimeQ[ # ] &], 200]; y = Table[ Prime[i], {i, PrimePi[ p[[ -1]] ]}]; Take[ Complement[y, x], 54] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 21 2004
STATUS
approved