A360454
Numbers for which the prime multiplicities (or sorted signature) have the same median as the prime indices.
Original entry on oeis.org
1, 2, 9, 54, 100, 120, 125, 135, 168, 180, 189, 240, 252, 264, 280, 297, 300, 312, 336, 351, 396, 408, 440, 450, 456, 459, 468, 480, 513, 520, 528, 540, 552, 560, 588, 612, 616, 621, 624, 672, 680, 684, 696, 728, 744, 756, 760, 783, 816, 828, 837, 880, 882
Offset: 1
The terms together with their prime indices begin:
1: {}
2: {1}
9: {2,2}
54: {1,2,2,2}
100: {1,1,3,3}
120: {1,1,1,2,3}
125: {3,3,3}
135: {2,2,2,3}
168: {1,1,1,2,4}
180: {1,1,2,2,3}
189: {2,2,2,4}
240: {1,1,1,1,2,3}
For example, the prime indices of 336 are {1,1,1,1,2,4} with median 1 and multiplicities {1,1,4} with median 1, so 336 is in the sequence.
For distinct indices instead of indices we have
A360453, counted by
A360455.
For distinct indices instead of multiplicities:
A360249, counted by
A360245.
These partitions are counted by
A360456.
A240219 counts partitions with mean equal to median, ranked by
A359889.
A359894 counts partitions with mean different from median, ranks
A359890.
A360005 gives median of prime indices (times two).
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Median[prix[#]]==Median[Length/@Split[prix[#]]]&]
A360455
Number of integer partitions of n for which the distinct parts have the same median as the multiplicities.
Original entry on oeis.org
1, 1, 0, 0, 2, 1, 1, 0, 2, 2, 5, 8, 10, 14, 20, 19, 26, 31, 35, 41, 55, 65, 85, 102, 118, 151, 181, 201, 236, 281, 313, 365, 424, 495, 593, 688, 825, 978, 1181, 1374, 1650, 1948, 2323, 2682, 3175, 3680, 4314, 4930, 5718, 6546, 7532, 8557, 9777, 11067, 12622
Offset: 0
The a(1) = 1 through a(11) = 8 partitions:
1 . . 22 221 3111 . 3311 333 3331 32222
211 41111 32211 33211 33221
42211 44111
322111 52211
511111 322211
332111
422111
3221111
These partitions have ranks
A360453.
A116608 counts partitions by number of distinct parts.
-
Table[Length[Select[IntegerPartitions[n], Median[Length/@Split[#]]==Median[Union[#]]&]],{n,0,30}]
Comments