%I #4 Apr 03 2017 20:31:57
%S 1,1,2,2,6,8,11,14,23,29,38,48,81,102,131,163,235,293,364,448,622,762,
%T 933,1134,1571,1906,2311,2784,3682,4425,5305,6339,8219,9796,11648,
%U 13808,17543,20743,24484,28817,36600,43025,50477,59101,73401,85788,100085
%N Number of partitions of n such that the (sum of distinct even parts) < n/2.
%e a(4) counts these 2 partitions: 31, 1111.
%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. A284617, A284618, A284619.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, Apr 02 2017