A108802 Self-convolution of A040051 (parity of partition function).

1, 2, 1, 2, 4, 4, 5, 6, 5, 4, 5, 4, 5, 6, 5, 4, 6, 10, 10, 10, 10, 10, 6, 10, 11, 8, 7, 8, 7, 10, 12, 6, 9, 10, 9, 10, 17, 14, 14, 14, 15, 16, 16, 14, 16, 14, 13, 14, 15, 20, 16, 16, 20, 22, 18, 24, 24, 22, 17, 18, 18, 24, 16, 14, 19, 20, 21, 24, 26, 20, 21, 20, 29, 28, 27, 22, 29, 28, 21, 20

Offset

0,2

Links

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 1001 terms from T. D. Noe)

Mathematica

Function[w, ListConvolve[#, #] & /@ Map[Take[w, #] &, Range@ Length@ w]]@ Table[Mod[PartitionsP@ n, 2], {n, 0, 79}] // Flatten (* Michael De Vlieger, Jul 16 2016, after Robert G. Wilson v at A000041 *)

Crossrefs

Cf. A000041, A040051, A108803.

Sequence in context: A350659 A094265 A153898 * A023673 A132965 A365005

Adjacent sequences: A108799 A108800 A108801 * A108803 A108804 A108805

Keyword

nonn,look

Author

N. J. A. Sloane, Jul 09 2005

Status

approved