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,2

Links

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

Mathematica

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

Prog

(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 */

Crossrefs

Cf. A100959.

Sequence in context: A109860 A100392 A309203 * A067019 A132106 A242393

Adjacent sequences: A176844 A176845 A176846 * A176848 A176849 A176850

Keyword

nonn

Author

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

Extensions

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

Status

approved