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,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000041, A154798.

Sequence in context: A110466 A110383 A123783 * A092806 A138485 A006711

Adjacent sequences: A163285 A163286 A163287 * A163289 A163290 A163291

Keyword

nonn

Author

Omar E. Pol, Aug 09 2009

Extensions

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

Status

approved