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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000041, A154796, A163096.

Sequence in context: A343067 A223442 A121594 * A022997 A256876 A051121

Adjacent sequences: A163283 A163284 A163285 * A163287 A163288 A163289

Keyword

nonn

Author

Omar E. Pol, Aug 09 2009

Extensions

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

Status

approved