OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[Range[1, 301, 2], EvenQ[PrimeOmega[#]]&] (* Harvey P. Dale, Jul 25 2011 *)
PROG
(PARI) lista(nn) = {forstep(n=1, nn, 2, if (bigomega(n) % 2 == 0, print1(n, ", "))); } \\ Michel Marcus, Jul 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved