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,3

Links

Rémy Sigrist, Table of n, a(n) for n = 0..8191

Index entries for sequences related to binary expansion of n

Formula

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

a(n) >= n.

Prog

(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); }

Crossrefs

Cf. A073138, A335835, A361478, A361479.

Sequence in context: A345068 A057723 A335835 * A142151 A003968 A076734

Adjacent sequences: A361477 A361478 A361479 * A361481 A361482 A361483

Keyword

nonn,look,base

Author

Rémy Sigrist, Mar 13 2023

Status

approved