login
A284618
Number of partitions of n such that the (sum of distinct even parts) > n/2.
3
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,6
EXAMPLE
a(6) counts these 3 partitions: 6, 41, 411.
MATHEMATICA
Table[p = IntegerPartitions[n];
Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], EvenQ]], {k,
Length[p]}], # > n/2 &]], {n, 54}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 02 2017
STATUS
approved