A389903 a(n) = min(n, A059893(n)), where A059893 reverses the order of all but the most significant bit in binary expansion of n.

1, 2, 3, 4, 5, 5, 7, 8, 9, 10, 11, 9, 13, 11, 15, 16, 17, 18, 19, 18, 21, 22, 23, 17, 25, 21, 27, 19, 27, 23, 31, 32, 33, 34, 35, 36, 37, 38, 39, 34, 41, 42, 43, 38, 45, 46, 47, 33, 49, 41, 51, 37, 53, 45, 55, 35, 51, 43, 59, 39, 55, 47, 63, 64, 65, 66, 67, 68, 69, 70, 71, 68, 73, 74, 75, 76, 77, 78, 79, 66, 81, 82, 83, 74

Offset

1,2

Links

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

Index entries for sequences related to binary expansion of n.

Prog

(PARI)
A059893(n) = my(b=binary(n)); fromdigits(concat(b[1], Vecrev(vector(#b-1, k, b[k+1]))), 2);
A389903(n) = min(n, A059893(n));

Crossrefs

Cf. A059893.

Cf. also A331166, A389904, A389907.

Sequence in context: A357005 A267508 A163382 * A364019 A343127 A094017

Adjacent sequences: A389900 A389901 A389902 * A389904 A389905 A389906

Keyword

nonn,base,easy

Author

Antti Karttunen, Nov 30 2025

Status

approved