0,2

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

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

Cf. A000041, A040051, A108803.

Sequence in context: A241512 A094265 A153898 * A023673 A132965 A022597

Adjacent sequences: A108799 A108800 A108801 * A108803 A108804 A108805

nonn,look

N. J. A. Sloane, Jul 09 2005

approved