A325347 Number of partitions of n having an integer median.

1, 2, 2, 5, 5, 10, 11, 21, 23, 37, 45, 69, 83, 118, 145, 203, 250, 334, 415, 546, 673, 868, 1074, 1369, 1681, 2113, 2590, 3230, 3942, 4867, 5920, 7265, 8791, 10713, 12923, 15664, 18818, 22685, 27156, 32595, 38879, 46452, 55231, 65741, 77900, 92383, 109153

Offset

1,2

Comments

This sequence and A307683 partition the partition numbers, A000041.

Links

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..180

Example

a(5) counts these 5 partitions: [5], [3,1,1], [2,2,1], [2,1,1,1], [1,1,1,1,1].

Mathematica

Table[Count[IntegerPartitions[n], q_ /; IntegerQ[Median[q]]], {n, 10}]

Crossrefs

Cf. A000041, A307683.

Sequence in context: A214253 A306320 A347449 * A171967 A079964 A184321

Adjacent sequences: A325344 A325345 A325346 * A325348 A325349 A325350

Keyword

nonn

Author

Clark Kimberling, Apr 23 2019

Status

approved