OFFSET
1,4
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.
LINKS
EXAMPLE
The a{n} multiset partitions for n = 8, 24, 72, 96:
{{111}} {{1112}} {{11122}} {{111112}}
{{1}{11}} {{1}{112}} {{1}{1122}} {{1}{11112}}
{{1}{1}{1}} {{11}{12}} {{11}{122}} {{11}{1112}}
{{1}{1}{12}} {{12}{112}} {{111}{112}}
{{1}{1}{122}} {{12}{1111}}
{{1}{12}{12}} {{1}{1}{1112}}
{{1}{11}{112}}
{{11}{11}{12}}
{{1}{12}{111}}
{{1}{1}{1}{112}}
{{1}{1}{11}{12}}
{{1}{1}{1}{1}{12}}
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
nnQ[m_]:=PrimePi/@First/@FactorInteger[m]==Range[PrimePi[Max@@First/@FactorInteger[m]]];
Table[Length[Select[facs[n], And@@nnQ/@#&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 08 2022
STATUS
approved