OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..1024
Indranil Ghosh, C program to generate the sequence
MATHEMATICA
A101080[n_, k_]:= DigitCount[BitXor[n, k], 2, 1]; A003188[n_]:=BitXor[n, Floor[n/2]]; A006068[n_]:=If[n<2, n, Block[{m=A006068[Floor[n/2]]}, 2m + Mod[Mod[n, 2] + Mod[m, 2], 2]]]; a[r_, 0]:= 0; a[0, c_]:=c; a[r_, c_]:= A003188[1 + A006068[a[r - 1, c - 1]]]; Flatten@ Table[A101080[n, a[n, 2n]], {n, 0, 300}] (* Indranil Ghosh, Apr 02 2017 *)
PROG
(Scheme)
(define (A268835 n) (A101080bi n (A268820bi n (* 2 n))))
(PARI)
b(n) = if(n<1, 0, b(n\2) + n%2);
A101080(n, k) = b(bitxor(n, k));
A003188(n) = bitxor(n, n\2);
(Python)
def A101080(n, k): return bin(n^k)[2:].count("1")
def A003188(n): return n^(n//2)
def A006068(n):
if n<2: return n
else:
m=A006068(n//2)
return 2*m + (n%2 + m%2)%2
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 15 2016
STATUS
approved