A176847 The odd non-semiprime numbers.

1, 3, 5, 7, 11, 13, 17, 19, 23, 27, 29, 31, 37, 41, 43, 45, 47, 53, 59, 61, 63, 67, 71, 73, 75, 79, 81, 83, 89, 97, 99, 101, 103, 105, 107, 109, 113, 117, 125, 127, 131, 135, 137, 139, 147, 149, 151, 153, 157, 163, 165, 167, 171, 173, 175, 179, 181, 189, 191, 193, 195

Offset: 1

Author

Juri-Stepan Gerasimov, Apr 27 2010, May 01 2010

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A100959.

Programs

Mathematica

Select[Range[1000], ! PrimeOmega[#] == 2 && OddQ[#] &] (* G. C. Greubel, Sep 22 2018 *)

PARI

s=[]; for(n=1, 1000, if(n%2==1 && bigomega(n)!=2, s=concat(s, n))); s \\ Colin Barker, Jun 28 2014

PARI

concat( vector( 200, n, if( n%2 && bigomega(n)!=2, [n], []))) /* Michael Somos, Jun 28 2014 */

Extensions

Corrected (115 removed) by R. J. Mathar, May 01 2010