|
%I #13 Feb 07 2014 10:16:42
%S 1,1,2,3,5,7,10,14,20,26,35,47,61,79,102,129,165,208,260,325,404,498,
%T 616,756,925,1126,1374,1662,2013,2427,2922,3506,4206,5021,5998,7132,
%U 8485,10057,11922,14081,16627,19583,23053,27065,31768,37189,43527,50826,59322
%N Number of partitions of n such that at least half the parts are identical.
%H Alois P. Heinz, <a href="/A237269/b237269.txt">Table of n, a(n) for n = 0..200</a>
%e Of the 15 partitions of 7, only [1,2,4] does not qualify, so that a(7) = 14.
%t Map[Length[Select[Map[Max[Map[Last, Tally[#]]]/Length[#] &, IntegerPartitions[#]], # >= 1/2 &]] &, Range[50]] (* _Peter J. C. Moses_, Feb 05 2014 *)
%Y Cf. A000041.
%K nonn
%O 0,3
%A _Clark Kimberling_, Feb 05 2014
|
