OFFSET
1,2
COMMENTS
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We say that a sequence of nonempty sets is choosable iff it is possible to choose a different element from each set. For example, ({1,2},{1},{1,3}) is choosable because we have the choice (2,1,3), but ({1},{2},{1,3},{2,3}) is not.
EXAMPLE
The prime indices of 50 are {1,3,3}, and {(1),(3),(2,1)} is a valid choice of distinct strict partitions, so 50 is in the sequence.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
strptns[n_]:=Select[IntegerPartitions[n], UnsameQ@@#&];
Select[Range[100], Select[Tuples[strptns/@prix[#]], UnsameQ@@#&]!={}&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 29 2025
STATUS
approved
