%I #21 May 30 2024 06:55:38
%S 1,1,7,226,2059,20926,315646,4397212,66201971,999067510,15168583482,
%T 240202475668,3731763898510,57290627029676,887861389544668,
%U 13713341876387776,210889953761225667,3248614469788303782,50091681144815341810,772966100038376636332
%N Number of compositions of 2n into 2n nonnegative parts such that their xor-sum is zero.
%C Number of starting configurations of Nim with 2n pieces such that 2nd player wins, and the configurations are in the form {x_1, x_2, ..., x_2n}, where x_i is the number of pieces on i-th stack (x_i>=0), and the sum of all pieces is 2n.
%H C. L. Bouton, <a href="https://www.jstor.org/stable/1967631">Nim, A Game with a Complete Mathematical Theory</a>, Annals of Mathematics, Second Series, vol. 3 (1/4), 1902, 35-39.
%F a(n) = A088218(2n) - A372871(2n).
%F a(n) mod 2 = 1 <=> n in { A131577 }.
%e For n=1 the a(1)=1 solution is {1,1}.
%e For n=2 the a(2)=7 solutions are {0,0,2,2}, {0,2,0,2}, {0,2,2,0}, {1,1,1,1}, {2,0,0,2}, {2,0,2,0}, {2,2,0,0}.
%p b:= proc(n, i, t) option remember; `if`(n=0, 1-signum(t),
%p add(b(n-j, i-1, Bits[Xor](j, t)), j=`if`(i=1, n, 0..n)))
%p end:
%p a:= n-> b(2*n$2, 0):
%p seq(a(n), n=0..23); # _Alois P. Heinz_, May 22 2024
%t b[n_, i_, t_] := b[n, i, t] = If[n == 0, 1-Sign[t],
%t Sum[b[n-j, i-1, BitXor[j, t]], {j, If[i == 1, {n}, Range[0, n]]}]];
%t a[n_] := b[2n, 2n, 0];
%t Table[a[n], {n, 0, 23}] (* _Jean-François Alcover_, May 30 2024, after _Alois P. Heinz_ *)
%Y Cf. A088218, A131577, A372871, A048833, A233810.
%K nonn
%O 0,3
%A _Anna Ledworowska_, May 18 2024
%E More terms from _Alois P. Heinz_, May 22 2024
|