A331167 a(n) = min(n, A193231(n)), where A193231(n) is blue code of n.

0, 1, 2, 2, 4, 4, 6, 7, 8, 9, 10, 11, 10, 11, 9, 8, 16, 16, 18, 19, 20, 21, 22, 22, 24, 25, 26, 27, 27, 26, 24, 25, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 34, 35, 33, 32, 39, 38, 36, 37, 45, 44, 46, 47, 40, 41, 43, 42, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 68, 69, 71, 70, 65, 64, 66, 67, 75, 74, 72, 73, 78, 79, 77, 76

Offset: 0

Author

Antti Karttunen, Jan 12 2020

Keywords

• nonn

Comments

For all i, j > 0: a(i) = a(j) => A280501(i) = A280501(j).

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16383
• Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537
• Index entries for sequences related to binary expansion of n
• Index entries for sequences related to polynomials in ring GF(2)[X]

Crossrefs

Cf. A193231, A280501.

Cf. also A331166.

Programs

PARI

A331167(n) = { my(x='x); min(n,subst(lift(Mod(1, 2)*subst(Pol(binary(n), x), x, 1+x)), x, 2)); };

Formula

a(n) = min(n, A193231(n)).