OFFSET
1,2
COMMENTS
A prime index of n is a number m such that prime(m) divides n.
EXAMPLE
Entry A302242 describes a correspondence between positive integers and multiset multisystems. In this case it gives the following sequence of set systems.
01: {}
02: {{}}
03: {{1}}
04: {{},{}}
05: {{2}}
06: {{},{1}}
08: {{},{},{}}
09: {{1},{1}}
10: {{},{2}}
11: {{3}}
12: {{},{},{1}}
16: {{},{},{},{}}
17: {{4}}
18: {{},{1},{1}}
20: {{},{},{2}}
22: {{},{3}}
24: {{},{},{},{1}}
MATHEMATICA
primeMS[n_]:=If[n===1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[400], MatchQ[Union[DeleteCases[primeMS[#], 1]], {_?PrimeQ}|{}]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 10 2018
STATUS
approved