|
%I #37 Apr 18 2020 17:09:53
%S 0,0,1,0,3,0,1,0,7,4,1,0,3,0,1,0,15,12,9,8,3,0,1,0,7,4,1,0,3,0,1,0,31,
%T 28,25,24,19,16,17,16,7,4,1,0,3,0,1,0,15,12,9,8,3,0,1,0,7,4,1,0,3,0,1,
%U 0,63,60,57,56,51,48,49,48,39,36,33,32,35,32,33
%N a(n) = bitwise NOR of n and 2n.
%C Exactly all bits that are 0 in both parameters (but not a leading 0 of both) are set to 1 in the output of bitwise NOR.
%H Alois P. Heinz, <a href="/A334076/b334076.txt">Table of n, a(n) for n = 0..32767</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Bitwise operation">Bitwise operation</a>
%F a(n) = 0 <=> n in { A247648 } union { 0 }.
%F a(n) = n-1 <=> n in { A000079 }.
%F a(n) = n/2 <=> n in { A125835 }.
%F a(n) = n*3/4 <=> n in { A141032 }.
%p a:= n-> Bits[Nor](n, 2*n):
%p seq(a(n), n=0..127);
%o (Python)
%o def A334076(n):
%o m = n|(2*n)
%o return 0 if n == 0 else 2**(len(bin(m))-2)-1-m # _Chai Wah Wu_, Apr 14 2020
%o (PARI) a(n) = my(x=bitor(n, 2*n)); bitneg(x, #binary(x)); \\ _Michel Marcus_, Apr 14 2020
%Y Cf. A000079, A048724, A125835, A141032, A163617, A213370, A247648.
%K nonn,look,base
%O 0,5
%A _Alois P. Heinz_, Apr 13 2020
|
