OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[3, 699, 2], OddQ[Total[Transpose[FactorInteger[#]][[2]]]] && !PrimeQ[#]&] (* Harvey P. Dale, Dec 09 2010 *)
Select[Range[3, 699, 2], CompositeQ[#]&&OddQ[PrimeOmega[#]]&] (* Harvey P. Dale, Jun 18 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Name (description) modified by Harvey P. Dale, Dec 09 2010
STATUS
approved