%I
%S 1,11,21,501,1218,1859,2802,6155,18669,26587,52779,102113,357610,
%T 650078,870815,1161760,2043984,3544750,6066082,7898238,13271830,
%U 17131481,46334860,59057152,75099068,95284646,192138168,241751422,303581873,380501078,594454124,922174780,1145660456
%N a(n) = A154798(n)/2.
%H G. C. Greubel, <a href="/A163288/b163288.txt">Table of n, a(n) for n = 1..1000</a>
%t (1/2)*Select[Table[PartitionsP[n], {n, 0, 500, 2}], EvenQ] (* _G. C. Greubel_, Dec 17 2016 *)
%o (PARI) select(x>!(x%2), vector(80, n, numbpart(2*n)))/2 \\ _G. C. Greubel_, Dec 17 2016
%Y Cf. A000041, A154798.
%K nonn
%O 1,2
%A _Omar E. Pol_, Aug 09 2009
%E Terms a(13) onward from _G. C. Greubel_, Dec 17 2016
