A292601 a(n) = n - A292600(n).

0, 1, 1, 2, 1, 2, 4, 5, 1, 2, 4, 5, 8, 9, 9, 10, 1, 2, 4, 5, 8, 9, 9, 10, 16, 17, 17, 18, 17, 18, 20, 21, 1, 2, 4, 5, 8, 9, 9, 10, 16, 17, 17, 18, 17, 18, 20, 21, 32, 33, 33, 34, 33, 34, 36, 37, 33, 34, 36, 37, 40, 41, 41, 42, 1, 2, 4, 5, 8, 9, 9, 10, 16, 17, 17, 18, 17, 18, 20, 21, 32, 33, 33, 34, 33, 34, 36, 37, 33, 34, 36, 37, 40, 41, 41, 42, 64, 65, 65

Offset

0,4

Links

Antti Karttunen, Table of n, a(n) for n = 0..16383

Index entries for sequences related to binary expansion of n

Formula

a(n) = n - A292600(n) = n - A006068(floor(n/2)).

Mathematica

Table[n - If[n < 2, 0, BitXor @@ Table[Floor[#/2^m], {m, 0, Floor@ Log2@ #}] &@ Floor[n/2]], {n, 0, 98}] (* Michael De Vlieger, Sep 21 2017 *)

Prog

(Python)
def A292601(n):
    k, m = n>>1, n>>2
    while m > 0:
        k ^= m
        m >>= 1
    return n-k # Chai Wah Wu, Jun 30 2022

Crossrefs

Cf. A006068, A292600.

Sequence in context: A319773 A256188 A072727 * A301364 A309503 A057061

Adjacent sequences: A292598 A292599 A292600 * A292602 A292603 A292604

Keyword

nonn,base

Author

Antti Karttunen, Sep 21 2017

Status

approved