%I #19 Oct 08 2017 10:40:44

%S 0,0,0,2,4,12,26,56,116,240,492,992,2010,4032,8120,16256,32628,65280,

%T 130800,261632,523756,1047552,2096096,4192256,8386522,16773120,

%U 33550272,67100672,134209464,268419072,536854400,1073709056,2147450740

%N Number of 2n-bead balanced binary necklaces which are equivalent to their reversed complement, but not equivalent to their reverse and complement.

%C The number of 2n-bead balanced binary necklaces which are equivalent to their reversed complement is A011782(n) and those which are equivalent to their reverse, complement and reversed complement is A045674(n). - _Andrew Howroyd_, Sep 28 2017

%H <a href="/index/Ne#necklaces">Index entries for sequences related to necklaces</a>

%F a(2n+1) = A020522(n) = 4^n - 2^n. - _Max Alekseyev_, Jan 13 2006

%F a(n) = A011782(n) - A045674(n). - _Andrew Howroyd_, Sep 28 2017

%t (* b = A011782, c = A045674 *)

%t b[0] = 1; b[n_] := 2^(n - 1);

%t c[0] = 1; c[n_] := c[n] = If[EvenQ[n], 2^(n/2-1) + c[n/2], 2^((n-1)/2)];

%t a[n_] := b[n] - c[n];

%t Table[a[n], {n, 0, 32}] (* _Jean-François Alcover_, Oct 08 2017, after _Andrew Howroyd_ *)

%Y Cf. A011782, A045674.

%K nonn

%O 0,4

%A _David W. Wilson_