OFFSET
1,1
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.
EXAMPLE
The terms together with their prime indices begin:
2: {1}
3: {2}
5: {3}
11: {5}
14: {1,4}
17: {7}
21: {2,4}
26: {1,6}
31: {11}
35: {3,4}
38: {1,8}
39: {2,6}
41: {13}
46: {1,9}
57: {2,8}
58: {1,10}
59: {17}
65: {3,6}
67: {19}
69: {2,9}
74: {1,12}
77: {4,5}
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[1000], Length[Select[prix[#], #==1||PrimeQ[#]&]]==1&]
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Dec 28 2024
STATUS
approved