OFFSET
1,1
COMMENTS
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
EXAMPLE
The prime factors of 900 are {2,2,3,3,5,5}, with distinct parts {2,3,5}, with median 3, so 900 is in the sequence.
MATHEMATICA
Select[Range[2, 100], IntegerQ[Median[First/@FactorInteger[#]]]&]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 16 2023
STATUS
approved