A171469 Nonnegative nonprimes which are neither the sum nor the product of two distinct primes.

0, 1, 4, 27, 117, 121, 125, 135, 147, 171, 189, 207, 245, 255, 261, 275, 289, 297, 325, 343, 345, 357, 363, 387, 405, 425, 429, 455, 475, 477, 483, 495, 507, 513, 529, 531, 539, 555, 561, 567, 575, 585, 605, 625, 627, 637, 639, 651, 657, 665, 705, 715, 725, 747, 765, 777

Offset: 1

Author

Juri-Stepan Gerasimov, Dec 09 2009

Keywords

• nonn

Crossrefs

Cf. A000040, A166081, A109934, A141468, A006881.

Programs

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 *)

Extensions

Definition clarified, sequence corrected (51 removed, 289 inserted) and extended by R. J. Mathar, Apr 24 2010