OFFSET
1,1
COMMENTS
EXAMPLE
Sequence of partitions begins: (532), (642), (633), (6222), (5322), (4332), (752), (743), (33222), (862), (7322), (6422), (5332), (844), (853), (62222), (5432), (972), (8332), (53222), (963), (43322), (6333).
MATHEMATICA
Select[Range[1000], With[{ptn=If[#===1, {}, Join@@Cases[FactorInteger[#], {p_, k_}:>Table[PrimePi[p], {k}]]]}, Length[Union[Times@@@Subsets[ptn]]]>Length[Union[Plus@@@Subsets[ptn]]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 29 2018
STATUS
approved