OFFSET
1,2
COMMENTS
EXAMPLE
The prime indices of 125 are (3,3,3), and we have choices such as ((3),(1,1,1),(2,1)), so 125 is included.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
5: {3}
6: {1,2}
7: {4}
9: {2,2}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
15: {2,3}
17: {7}
18: {1,2,2}
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], Select[Tuples[IntegerPartitions/@prix[#]], UnsameQ@@#&]!={}&]
CROSSREFS
These are positions of nonzero terms in A387115.
Integer partitions of this type are counted by A387328.
A003963 multiplies together the prime indices of n.
A289509 lists numbers with relatively prime prime indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 07 2025
STATUS
approved
