OFFSET
1,1
MATHEMATICA
Select[Range[100], !IntegerQ[Sqrt[PrimeOmega[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 17 2019
STATUS
approved