login
Number of partitions n such that the multiplicity of the number of even parts is a part.
2

%I #4 Apr 17 2014 14:29:20

%S 0,0,0,1,2,2,2,5,7,8,13,17,26,31,43,55,76,98,125,161,206,261,331,417,

%T 518,648,805,995,1229,1508,1848,2255,2751,3335,4044,4884,5892,7084,

%U 8510,10183,12179,14524,17299,20555,24398,28885,34169,40337,47551,55961

%N Number of partitions n such that the multiplicity of the number of even parts is a part.

%e a(7) counts these 5 partitions: 61, 421, 322, 3211, 22111; e.g., 421 has 2 even parts, and the multiplicity of 2 is 1, which is a part of 421.

%t z = 60; f[n_] := f[n] = IntegerPartitions[n];

%t Table[Count[f[n], p_ /; MemberQ[p, Count[p, Count[Mod[p, 2], 0]]]], {n, 0, z}] (* A240540 *)

%t Table[Count[f[n], p_ /; MemberQ[p, Count[p, Count[Mod[p, 2], 1]]]], {n, 0, z}] (* A240541 *)

%Y Cf. A240541.

%K nonn,easy

%O 0,5

%A _Clark Kimberling_, Apr 07 2014