OFFSET
1,1
COMMENTS
EXAMPLE
The prime indices of 900 are {1,1,2,2,3,3}, with distinct parts {1,2,3}, with median 2, so 900 is in the sequence.
The prime indices of 330 are {1,2,3,5}, with distinct parts {1,2,3,5}, with median 5/2, so 330 is not in the sequence.
MATHEMATICA
Select[Range[2, 100], IntegerQ[Median[PrimePi/@First/@FactorInteger[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 14 2023
STATUS
approved