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 prime indices of 105 are {2,3,4}, and there are 3 prime factors (3,5,7) and 4 distinct divisors of prime indices (1,2,3,4), so 105 is in the sequence.
The terms together with their prime indices begin:
3: {2} 35: {3,4} 59: {17} 86: {1,14}
5: {3} 37: {12} 61: {18} 87: {2,10}
7: {4} 38: {1,8} 65: {3,6} 89: {24}
11: {5} 39: {2,6} 67: {19} 91: {4,6}
13: {6} 41: {13} 69: {2,9} 93: {2,11}
14: {1,4} 43: {14} 70: {1,3,4} 94: {1,15}
15: {2,3} 46: {1,9} 71: {20} 95: {3,8}
17: {7} 47: {15} 73: {21} 97: {25}
19: {8} 49: {4,4} 74: {1,12} 101: {26}
21: {2,4} 51: {2,7} 76: {1,1,8} 103: {27}
23: {9} 52: {1,1,6} 77: {4,5} 105: {2,3,4}
26: {1,6} 53: {16} 78: {1,2,6} 106: {1,16}
29: {10} 55: {3,5} 79: {22} 107: {28}
31: {11} 57: {2,8} 83: {23} 109: {29}
33: {2,5} 58: {1,10} 85: {3,7} 111: {2,12}
MATHEMATICA
Select[Range[100], PrimeOmega[#]<Length[Union @@ Divisors/@PrimePi/@First/@If[#==1, {}, FactorInteger[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 16 2024
STATUS
approved