login
Number of partitions of n whose median is a part.
18

%I #31 Apr 25 2024 05:55:36

%S 1,2,2,4,5,8,11,17,22,32,43,59,78,105,136,181,233,302,386,496,626,796,

%T 999,1255,1564,1951,2412,2988,3674,4516,5524,6753,8211,9984,12086,

%U 14617,17617,21211,25450,30514,36475,43550,51869,61707,73230,86821,102706

%N Number of partitions of n whose median is a part.

%C Also the number of integer partitions of n with a unique middle part. This means that either the length is odd or the two middle parts are equal. For example, the partition (4,3,2,1) has middle parts {2,3} so is not counted under a(10), but (3,2,2,1) has middle parts {2,2} so is counted under a(8). - _Gus Wiseman_, May 13 2023

%F a(n) + A238479(n) = A000041(n).

%F For all n, a(n) >= A027193(n) (because when a partition of n has an odd number of parts, its median is simply the part at the middle). - _Antti Karttunen_, Feb 27 2014

%F a(n) = A078408(n-1) - A282893(n). - _Mathew Englander_, May 24 2023

%e a(6) counts these partitions: 6, 411, 33, 321, 3111, 222, 21111, 111111.

%t Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Median[p]]], {n, 40}]

%Y For mean instead of median we have A237984, ranks A327473.

%Y The complement is counted by A238479, ranks A362617.

%Y These partitions have ranks A362618.

%Y A000041 counts integer partitions.

%Y A325347 counts partitions with integer median, complement A307683.

%Y A359893/A359901/A359902 count partitions by median.

%Y A359908 ranks partitions with integer median, complement A359912.

%Y Cf. A002865, A008284, A053263, A238480, A240219, A327472, A359907, A360686, A360687, A362608.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Feb 27 2014