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

1, 11, 21, 501, 1218, 1859, 2802, 6155, 18669, 26587, 52779, 102113, 357610, 650078, 870815, 1161760, 2043984, 3544750, 6066082, 7898238, 13271830, 17131481, 46334860, 59057152, 75099068, 95284646, 192138168, 241751422, 303581873, 380501078, 594454124, 922174780, 1145660456

Offset: 1

Author

Omar E. Pol, Aug 09 2009

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000041, A154798.

Programs

Mathematica

(1/2)*Select[Table[PartitionsP[n], {n, 0, 500, 2}], EvenQ] (* G. C. Greubel, Dec 17 2016 *)

PARI

select(x->!(x%2), vector(80, n, numbpart(2*n)))/2 \\ G. C. Greubel, Dec 17 2016

Extensions

Terms a(13) onward from G. C. Greubel, Dec 17 2016