OFFSET
1,2
COMMENTS
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, Length[prix[#]]}]]=={}&]
CROSSREFS
A299701 counts distinct subset-sums of prime indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 01 2023
STATUS
approved