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 factorization of 108 is 2*2*3*3*3, and the multiset {2,2,3,3,3} has median 3 and maximum 3, so 108 is not in the sequence.
The prime factorization of 2250 is 2*3*3*5*5*5, and the multiset {2,3,3,5,5,5} has median 4 and maximum 5, so 2250 is in the sequence.
The terms together with their prime indices begin:
6: {1,2} 36: {1,1,2,2} 60: {1,1,2,3}
10: {1,3} 38: {1,8} 62: {1,11}
12: {1,1,2} 39: {2,6} 63: {2,2,4}
14: {1,4} 40: {1,1,1,3} 65: {3,6}
15: {2,3} 42: {1,2,4} 66: {1,2,5}
20: {1,1,3} 44: {1,1,5} 68: {1,1,7}
21: {2,4} 45: {2,2,3} 69: {2,9}
22: {1,5} 46: {1,9} 70: {1,3,4}
24: {1,1,1,2} 48: {1,1,1,1,2} 72: {1,1,1,2,2}
26: {1,6} 51: {2,7} 74: {1,12}
28: {1,1,4} 52: {1,1,6} 76: {1,1,8}
30: {1,2,3} 55: {3,5} 77: {4,5}
33: {2,5} 56: {1,1,1,4} 78: {1,2,6}
34: {1,7} 57: {2,8} 80: {1,1,1,1,3}
35: {3,4} 58: {1,10} 82: {1,13}
MATHEMATICA
Select[Range[100], (y=Flatten[Apply[ConstantArray, FactorInteger[#], {1}]]; Max@@y!=Median[y])&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 12 2023
STATUS
approved