%I #4 Apr 23 2019 23:58:42
%S 0,1,0,2,0,3,0,5,1,7,2,12,5,17,10,27,18,40,31,62,52,90,83,137,131,199,
%T 201,294,304,425,452,616,665,878,967,1254,1390,1767,1980,2486,2799,
%U 3464,3924,4811,5463,6629,7555,9103,10384,12418
%N Number of partitions of n with even minimal and maximal parts.
%C The four sequences A325338, A325344, A325345, A325346 partition the partition numbers, A000041.
%e a(6) counts these 3 partitions: [6], [4,2], [2,2,2].
%t Table[Count[IntegerPartitions[n], q_ /; EvenQ[Max[q]] && EvenQ[Min[q]]], {n, 30}]
%Y Cf. A000041, A325338, A325344, A325345.
%K nonn,easy
%O 1,4
%A _Clark Kimberling_, Apr 23 2019