login
a(n) = A154798(n)/2.
2

%I #10 Jun 25 2017 02:48:11

%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