The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 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 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. A193231, A280501. Cf. also A331166. Sequence in context: A320008 A127370 A215259 * A106247 A319400 A174787 Adjacent sequences:  A331164 A331165 A331166 * A331168 A331169 A331170 KEYWORD nonn AUTHOR Antti Karttunen, Jan 12 2020 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 1 14:52 EDT 2020. Contains 333163 sequences. (Running on oeis4.)