A163286 a(n) = A154796(n)/2.

15, 28, 88, 245, 396, 979, 1505, 3421, 44567, 62377, 225638, 307077, 415910, 1006279, 4059132, 6924325, 66615465, 107240563, 135624475, 270973120, 425688314, 663855038, 1581563676, 2417635935, 2982269752, 3673314756, 4517918038, 5548822508, 8335344604, 15194335989

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, A154796, A163096.

Programs

Mathematica

(1/2)*Reap[Do[If[EvenQ[p = PartitionsP[n]], Sow[p]], {n, 1, 500, 2}]][[2, 1]] (* G. C. Greubel, Dec 17 2016 *)

PARI

lista(nn) = for (n=1, nn, if (((p = numbpart(2*n+1)) % 2) == 0, print1(p/2, ", "))); \\ Michel Marcus, Dec 17 2016

Extensions

More terms from R. J. Mathar, Sep 27 2009