A389908 a(n) = min(n, A056539(n)), where A056539 reverses the bits in binary expansion of n and also complements them (0->1, 1->0) if n is even.

1, 2, 3, 4, 5, 4, 7, 8, 9, 10, 11, 12, 11, 8, 15, 16, 17, 18, 19, 20, 21, 18, 23, 24, 19, 20, 27, 24, 23, 16, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 37, 42, 43, 44, 45, 34, 47, 48, 35, 44, 51, 52, 43, 36, 55, 56, 39, 40, 55, 48, 47, 32, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 70, 79, 80, 69, 82, 83, 84, 85, 74

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences related to binary expansion of n.

Mathematica

A389908[n_] := Min[n, A056539[n]]; (* Uses code from A056539 *)
Array[A389908, 100] (* Paolo Xausa, Dec 03 2025 *)

Prog

(PARI)
A056539(n) = fromdigits(Vecrev(apply(b->abs((!(n%2))-b), binary(n))), 2);
A389908(n) = min(n, A056539(n));

Crossrefs

Cf. A056539.

Cf. also A331166, A389903, A389904, A389907, A389908.

Sequence in context: A079869 A200322 A361479 * A075054 A158366 A335834

Adjacent sequences: A389905 A389906 A389907 * A389909 A389910 A389911

Keyword

nonn,base,easy

Author

Antti Karttunen, Dec 02 2025

Status

approved