login
A108802
Self-convolution of A040051 (parity of partition function).
2
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
KEYWORD
nonn,look
AUTHOR
N. J. A. Sloane, Jul 09 2005
STATUS
approved