

A098905


Odd numbers whose number of distinct prime factors is positive and even.


5



15, 21, 33, 35, 39, 45, 51, 55, 57, 63, 65, 69, 75, 77, 85, 87, 91, 93, 95, 99, 111, 115, 117, 119, 123, 129, 133, 135, 141, 143, 145, 147, 153, 155, 159, 161, 171, 175, 177, 183, 185, 187, 189, 201, 203, 205, 207, 209, 213, 215, 217, 219, 221, 225, 235, 237
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

21 is a member of sequence because 21 is odd and number of distinct prime factors of 21, i.e., 2 is even.


MATHEMATICA

Select[Select[Range[2, 400], EvenQ[PrimeNu[#]] &], OddQ] (* G. C. Greubel, May 09 2017 *)
Select[Range[3, 250, 2], EvenQ[PrimeNu[#]]&] (* Harvey P. Dale, Jan 19 2020 *)


PROG

(PARI) isok(n) = (n>1) && (n%2) && !(omega(n) % 2); \\ Michel Marcus, Jan 20 2020
(Magma) [k:k in [3..250 by 2]IsEven(#PrimeDivisors(k))]; // Marius A. Burtea, Jan 20 2020


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



STATUS

approved



