login
A331167
a(n) = min(n, A193231(n)), where A193231(n) is blue code of n.
3
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,3
COMMENTS
For all i, j > 0: a(i) = a(j) => A280501(i) = A280501(j).
FORMULA
a(n) = min(n, A193231(n)).
PROG
(PARI) A331167(n) = { my(x='x); min(n, subst(lift(Mod(1, 2)*subst(Pol(binary(n), x), x, 1+x)), x, 2)); };
CROSSREFS
Cf. also A331166.
Sequence in context: A373943 A341165 A215259 * A348588 A106247 A337030
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 12 2020
STATUS
approved