login
A237269
Number of partitions of n such that at least half the parts are identical.
1
1, 1, 2, 3, 5, 7, 10, 14, 20, 26, 35, 47, 61, 79, 102, 129, 165, 208, 260, 325, 404, 498, 616, 756, 925, 1126, 1374, 1662, 2013, 2427, 2922, 3506, 4206, 5021, 5998, 7132, 8485, 10057, 11922, 14081, 16627, 19583, 23053, 27065, 31768, 37189, 43527, 50826, 59322
OFFSET
0,3
LINKS
EXAMPLE
Of the 15 partitions of 7, only [1,2,4] does not qualify, so that a(7) = 14.
MATHEMATICA
Map[Length[Select[Map[Max[Map[Last, Tally[#]]]/Length[#] &, IntegerPartitions[#]], # >= 1/2 &]] &, Range[50]] (* Peter J. C. Moses, Feb 05 2014 *)
CROSSREFS
Cf. A000041.
Sequence in context: A054405 A155167 A325858 * A116634 A035960 A288254
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 05 2014
STATUS
approved