login
Number of partitions p of n such that 2(number of parts of p) - min(p) is a part of p.
1

%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