OFFSET
1,1
COMMENTS
A semiprime (A001358) is a product of any two not necessarily distinct primes.
MATHEMATICA
sqfsemfacs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[sqfsemfacs[n/d], Min@@#>=d&]], {d, Select[Rest[Divisors[n]], And[SquareFreeQ[#], PrimeOmega[#]==2]&]}]];
strsemfacs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[strsemfacs[n/d], Min@@#>d&]], {d, Select[Rest[Divisors[n]], PrimeOmega[#]==2&]}]];
Select[Range[10000], And[EvenQ[PrimeOmega[#]], strsemfacs[#]=={}, sqfsemfacs[#]!={}]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 23 2018
STATUS
approved