A284618 - OEIS

%I #4 Apr 03 2017 20:32:19

%S 0,1,1,1,1,3,4,5,7,13,18,14,20,33,45,45,62,92,126,124,170,240,322,288,

%T 387,530,699,669,883,1179,1537,1475,1924,2514,3235,3181,4094,5272,

%U 6701,6279,7983,10149,12784,12494,15733,19770,24669,23785,29682,36968,45755

%N Number of partitions of n such that the (sum of distinct even parts) > n/2.

%e a(6) counts these 3 partitions: 6, 41, 411.

%t Table[p = IntegerPartitions[n];

%t Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], EvenQ]], {k,

%t      Length[p]}], # > n/2 &]], {n, 54}]

%Y Cf. A284616, A284617, A284619.

%K nonn,easy

%O 1,6

%A _Clark Kimberling_, Apr 02 2017