A389904 a(n) = min(n, A059894(n)).

1, 2, 2, 4, 5, 6, 4, 8, 9, 10, 9, 12, 10, 12, 8, 16, 17, 18, 19, 20, 21, 22, 17, 24, 22, 26, 18, 28, 20, 24, 16, 32, 33, 34, 35, 36, 37, 38, 35, 40, 41, 42, 37, 44, 41, 46, 33, 48, 46, 50, 38, 52, 42, 50, 34, 56, 44, 52, 36, 56, 40, 48, 32, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 67, 80, 81, 82, 77

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)
A059894(n)= my(b=binary(n)); 2^#b-1-fromdigits(Vecrev(b[2..#b]), 2);
A389904(n) = min(n, A059894(n));

Crossrefs

Cf. A059894.

Cf. also A331166, A389903, A389907.

Sequence in context: A181523 A353855 A353847 * A390866 A181537 A130498

Adjacent sequences: A389901 A389902 A389903 * A389905 A389906 A389907

Keyword

nonn,base,easy

Author

Antti Karttunen, Nov 30 2025

Status

approved