A112248 a(n) = n mod floor(log_2(n)).

0, 0, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4

Offset

2,7

Comments

a(A112249(n)) = 0, a(A112250(n)) > 0, a(A112251(n)) = 1.

Links

Table of n, a(n) for n=2..106.

Maple

seq(seq(n mod d, n=2^d .. 2^(d+1)-1), d=1..8); # Robert Israel, Aug 27 2020

Mathematica

Table[Mod[n, Floor @ Log2[n]], {n, 2, 100}] (* Amiram Eldar, Aug 27 2020 *)

Prog

(PARI) a(n) = n % logint(n, 2); \\ Michel Marcus, Aug 27 2020

Crossrefs

Cf. A000523, A112249, A112250.

Sequence in context: A331466 A166124 A134979 * A244860 A308009 A010872

Adjacent sequences: A112245 A112246 A112247 * A112249 A112250 A112251

Keyword

nonn

Author

Reinhard Zumkeller, Aug 30 2005

Extensions

Name edited by Michel Marcus, Aug 27 2020

Status

approved