OFFSET
1,3
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.
A multiset partition can be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Multisets of constant multisets are generally not transitive. For example, we have arrows: {{1,1},{2}}: {1,1,2} -> {2,2} and {{2,2}}: {2,2} -> {4}, but there is no multiset of constant multisets {1,1,2} -> {4}.
LINKS
Robert Price, Table of n, a(n) for n = 1..300
EXAMPLE
The a(21) = 6 multisets are: {2,4}, {1,1,4}, {2,2,2}, {1,1,2,2}, {2,1,1,1,1}, {1,1,1,1,1,1}.
The a(n) partitions for n = 1, 3, 7, 13, 53, 21 (G = 16):
() (2) (4) (6) (G) (42)
(11) (22) (33) (88) (411)
(1111) (222) (4444) (222)
(111111) (22222222) (2211)
(1111111111111111) (21111)
(111111)
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#], SameQ@@#&]&/@prix[n]]]], {n, nn}]
CROSSREFS
Positions of 1 are A000079.
The strict case is A008966.
Before sorting we had A355731.
Choosing divisors instead of constant multisets gives A355733.
Multiset partitions of prime indices:
A000040 lists the primes.
A003963 gives product of prime indices.
A122111 represents conjugation in terms of Heinz numbers.
A265947 counts refinement-ordered pairs of integer partitions.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 08 2025
STATUS
approved
