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. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
10: {1,3}
11: {5}
13: {6}
16: {1,1,1,1}
17: {7}
19: {8}
20: {1,1,3}
21: {2,4}
22: {1,5}
23: {9}
25: {3,3}
26: {1,6}
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], !MemberQ[DeleteCases[primeMS[#], 1], k_/; SubsetQ[primeMS[#], primeMS[k]]]&]
CROSSREFS
The subset version is A324738, with maximal case A324744. The strict integer partition version is A324749. The integer partition version is A324754. An infinite version is A324694.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 17 2019
STATUS
approved