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