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

Author

N. J. A. Sloane, Jul 09 2005

Keywords

• nonn
• look

Links

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

Crossrefs

Cf. A000041, A040051, A108803.

Programs

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 *)