|
%I #5 Mar 15 2014 16:16:19
%S 1,0,1,2,5,8,15,23,39,59,94,140,216,316,472,682,994,1414,2022,2837,
%T 3989,5530,7663,10504,14381,19509,26417,35510,47618,63461,84365,
%U 111553,147126,193144,252892,329773,428931,555852,718547,925795,1189946,1524863,1949540
%N Number of partitions of 2n having twice as many odd parts as even.
%e a(5) counts these 8 partitions of 10: 811, 721, 631, 541, 532, 433, 421111, 322111.
%t p[n_] := p[n] = Select[IntegerPartitions[2 n], Count[#, _?OddQ] == 2*Count[#, _?EvenQ] &]; t = Table[p[n], {n, 0, 8}] (* shows the partitions *); TableForm[t] (* partitions, vertical format *)
%t t1 = Table[Length[p[n]], {n, 0, 60}] (* A239258 *)
%t (* _Peter J. C. Moses_, Mar 10 2014 *)
%Y Cf. A239004.
%K nonn,easy
%O 0,4
%A _Clark Kimberling_, Mar 13 2014
%E More terms from _Alois P. Heinz_, Mar 15 2014
|
