OFFSET
1,1
COMMENTS
EXAMPLE
The prime indices of 150 are {1,2,3,3}, and {{3},{3},{1,2}} is a partition into sets with a common sum, so 150 is not in the sequence.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]& /@ sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Select[Range[100], Select[mps[prix[#]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 22 2025
STATUS
approved
