OFFSET
1,4
EXAMPLE
The a(60) = 5 factorizations are (2*2*3*5), (2*2*15), (2*3*10), (2*5*6), (3*4*5), (4*15), (6*10).
MATHEMATICA
psemfacs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[psemfacs[n/d], Min@@#>=d&]], {d, Select[Rest[Divisors[n]], PrimeOmega[#]<=2&]}]];
Table[Length[psemfacs[n]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 20 2018
STATUS
approved