A361480 a(n) is the greatest integer whose binary expansion has the same multiset of run-lengths as that of n.

0, 1, 2, 3, 6, 5, 6, 7, 14, 13, 10, 13, 12, 13, 14, 15, 30, 29, 26, 27, 26, 21, 26, 29, 28, 27, 26, 27, 28, 29, 30, 31, 62, 61, 58, 59, 54, 53, 54, 59, 58, 53, 42, 53, 54, 53, 58, 61, 60, 59, 54, 51, 54, 53, 54, 59, 56, 59, 58, 59, 60, 61, 62, 63, 126, 125

Offset: 0

Author

Rémy Sigrist, Mar 13 2023

Keywords

• nonn
• look
• base

Links

• Rémy Sigrist, Table of n, a(n) for n = 0..8191
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A073138, A335835, A361478, A361479.

Programs

PARI

a(n) = { my (r=[]); while (n, my (v=valuation(n+n%2, 2)); n\=2^v; r=concat(v, r)); r=vecsort(r); my (h=0, t=#r+1, v=0); for (k=1, #r, v=(v+k%2)*2^if (k%2, r[t--], r[h++])-k%2;); return (v); }

Formula

a(a(n)) = a(n).

a(n) >= n.