OFFSET
1,2
COMMENTS
Also Heinz numbers of a type of sum-free partitions not allowing re-used parts, counted by A236912.
EXAMPLE
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], Intersection[prix[#], Total/@Subsets[prix[#], {2}]]=={}&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 27 2023
STATUS
approved