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

0, 1, 1, 1, 1, 3, 4, 5, 7, 13, 18, 14, 20, 33, 45, 45, 62, 92, 126, 124, 170, 240, 322, 288, 387, 530, 699, 669, 883, 1179, 1537, 1475, 1924, 2514, 3235, 3181, 4094, 5272, 6701, 6279, 7983, 10149, 12784, 12494, 15733, 19770, 24669, 23785, 29682, 36968, 45755

Offset: 1

Author

Clark Kimberling, Apr 02 2017

Keywords

• nonn
• easy

Examples

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

Crossrefs

Cf. A284616, A284617, A284619.

Programs

Mathematica

Table[p = IntegerPartitions[n];
Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], EvenQ]], {k,
     Length[p]}], # > n/2 &]], {n, 54}]