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 constant-multiset systems.
01: {}
02: {{}}
03: {{1}}
05: {{2}}
06: {{},{1}}
07: {{1,1}}
10: {{},{2}}
11: {{3}}
14: {{},{1,1}}
15: {{1},{2}}
17: {{4}}
19: {{1,1,1}}
21: {{1},{1,1}}
22: {{},{3}}
23: {{2,2}}
30: {{},{1},{2}}
31: {{5}}
33: {{1},{3}}
34: {{},{4}}
35: {{2},{1,1}}
38: {{},{1,1,1}}
MATHEMATICA
Select[Range[nn], Or[#===1, SquareFreeQ[#]&&And@@PrimePowerQ/@PrimePi/@DeleteCases[FactorInteger[#][[All, 1]], 2]]&]
PROG
(PARI) is(n) = if(bigomega(n)!=omega(n), return(0), my(f=factor(n)[, 1]~); for(k=1, #f, if(!isprimepower(primepi(f[k])) && primepi(f[k])!=1, return(0)))); 1 \\ Felix Fröhlich, Apr 10 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 09 2018
STATUS
approved