%I
%S 0,1,0,0,1,1,1,2,1,2,3,4,5,7,7,9,12,15,17,23,27,34,42,50,60,75,87,106,
%T 128,154,182,222,260,311,369,437,515,613,716,845,993,1166,1361,1599,
%U 1861,2176,2534,2950,3422,3983,4605,5339,6174,7136,8227,9500,10928
%N Number of partitions of n such that 2*(greatest part) = (number of parts).
%C Also, the number of partitions of n such that (greatest part) = 2*(number of parts); hence, the number of partitions of n such that (rank + greatest part) = 0.
%e a(8) = 2 counts these partitions: 311111, 2222.
%t z = 50; Table[Count[IntegerPartitions[n], p_ /; 2 Max[p] = = Length[p]], {n, z}]
%Y Cf. A064173, A237751, A237752, A237754A237757.
%K nonn,easy
%O 1,8
%A _Clark Kimberling_, Feb 13 2014
