|
%I #16 Oct 27 2023 19:32:12
%S 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,
%T 12,6,9,10,9,10,17,14,14,14,15,16,16,14,16,14,13,14,15,20,16,16,20,22,
%U 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
%N Self-convolution of A040051 (parity of partition function).
%H Alois P. Heinz, <a href="/A108802/b108802.txt">Table of n, a(n) for n = 0..10000</a> (first 1001 terms from T. D. Noe)
%t 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 *)
%Y Cf. A000041, A040051, A108803.
%K nonn,look
%O 0,2
%A _N. J. A. Sloane_, Jul 09 2005
|
