%I #54 May 17 2021 04:56:20
%S 0,0,0,2,0,0,4,6,0,0,0,2,8,8,12,14,0,0,0,2,0,0,4,6,16,16,16,18,24,24,
%T 28,30,0,0,0,2,0,0,4,6,0,0,0,2,8,8,12,14,32,32,32,34,32,32,36,38,48,
%U 48,48,50,56,56,60,62,0,0,0,2,0,0,4,6,0,0,0,2,8,8
%N a(n) = n AND 2*n, where AND is the bitwise AND operator.
%H Antti Karttunen, <a href="/A213370/b213370.txt">Table of n, a(n) for n = 0..16384</a> (terms 0..1023 from T. D. Noe)
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = 2 * A048735(n).
%F a(n) = (1/2)*(A048727(n) XOR A269160(n)) = (n OR 2n) XOR (n XOR 2n). - _Antti Karttunen_, May 16 2021
%t Table[BitAnd[n, 2n], {n, 0, 63}] (* _Alonso del Arte_, Jun 19 2012 *)
%o (Python)
%o for n in range(99):
%o print(2*n & n, end=", ")
%o (PARI) a(n) = bitand(n, 2*n); \\ _Michel Marcus_, Mar 26 2021
%Y Cf. A080099, A213526, A048727, A048735, A269160.
%Y Cf. A003714: indices of 0's.
%Y Cf. A213540: indices of 2's, indices of 4's divided by 2.
%K nonn,base,easy
%O 0,4
%A _Alex Ratushnyak_, Jun 14 2012