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 terms together with their prime factors begin:
2: {2}
3: {3}
4: {2,2}
5: {5}
7: {7}
8: {2,2,2}
9: {3,3}
11: {11}
12: {2,2,3}
13: {13}
15: {3,5}
16: {2,2,2,2}
17: {17}
18: {2,3,3}
19: {19}
20: {2,2,5}
21: {3,7}
23: {23}
24: {2,2,2,3}
MATHEMATICA
Select[Range[2, 100], IntegerQ[Median[Flatten[ConstantArray@@@FactorInteger[#]]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 25 2023
STATUS
approved