OFFSET
1,3
MATHEMATICA
prs=Prime[Range[150]];
prodprs=Times@@@Subsets[prs, {2}];
sumprs=Plus@@@Subsets[prs, {2}];
Complement[Range[0, 800], prs, prodprs, sumprs] (* Harvey P. Dale, Jan 23 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 09 2009
EXTENSIONS
Definition clarified, sequence corrected (51 removed, 289 inserted) and extended by R. J. Mathar, Apr 24 2010
STATUS
approved