%I #6 Mar 03 2014 10:11:07
%S 1,0,0,2,1,1,2,3,4,5,6,8,10,13,15,22,24,31,39,48,56,73,84,106,127,153,
%T 181,226,263,317,377,453,530,640,745,890,1043,1233,1441,1708,1982,
%U 2331,2715,3183,3687,4316,4989,5814,6725,7802,8998,10437,12004,13871
%N Number of partitions p of n such that 2(number of parts of p) - min(p) is a part of p.
%e a(8) = 3 counts these partitions: 62, 521, 422.
%t Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 2*Length[p] - Min[p]]], {n, 50}]
%Y Cf. A238588.
%K nonn,easy
%O 1,4
%A _Clark Kimberling_, Mar 01 2014