%I #15 Mar 19 2019 04:31:43
%S 0,1,2,6,6,11,16,35,36,46,50,84,94,130,158,285,338,424,460,616,672,
%T 810,816,1162,1346,1680,1754,2308,2562,3164,3288,4486,5306,6838,7522,
%U 9627,11006,13496,14200,17462,19682,24036,25650,30842,33884,40302,41644,48896
%N Sum over all partitions of n into distinct parts of the bitwise XOR of the parts.
%H Alois P. Heinz, <a href="/A306925/b306925.txt">Table of n, a(n) for n = 0..1000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Bitwise operation">Bitwise operation</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Commutative_property">Commutative property</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Identity_element">Identity element</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Partition_(number_theory)">Partition (number theory)</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Truth_table">Truth table</a>
%F a(n) is odd <=> n in { A067589 }.
%F a(n) is odd <=> A067588(n) is odd.
%p b:= proc(n, i, r) option remember; `if`(i*(i+1)/2<n or
%p n=0, 0, (t-> `if`(i<n, b(n-i, min(i-1, n-i), t), 0)
%p +`if`(i=n, t, 0)+b(n, i-1, r))(Bits[Xor](i, r)))
%p end:
%p a:= n-> b(n$2, 0):
%p seq(a(n), n=0..51);
%Y Cf. A000009, A066189, A067588, A067589, A306903, A306923, A306924.
%K nonn,base
%O 0,3
%A _Alois P. Heinz_, Mar 16 2019
|