A325401 minflip(n) = min(n, r(n)) where r(n) is the binary reverse of n.

0, 1, 1, 3, 1, 5, 3, 7, 1, 9, 5, 11, 3, 11, 7, 15, 1, 17, 9, 19, 5, 21, 13, 23, 3, 19, 11, 27, 7, 23, 15, 31, 1, 33, 17, 35, 9, 37, 25, 39, 5, 37, 21, 43, 13, 45, 29, 47, 3, 35, 19, 51, 11, 43, 27, 55, 7, 39, 23, 55, 15, 47, 31, 63

Offset

0,4

Links

Francois Alcover, Table of n, a(n) for n = 0..16384

Formula

a(n) = min(n,A030101(n)).

Example

a(2) = min(2, r(2))
     = min(2, b'01')
     = min(2,1)
     = 1.

Maple

a:= proc(n) local m, r; m:=n; r:=0;
      while m>0 do r:=r*2+irem(m, 2, 'm') od;
      min(n, r)
    end:
seq(a(n), n=0..127);  # Alois P. Heinz, Apr 23 2019

Prog

(PARI) a(n) = min(n, fromdigits(Vecrev(binary(n)), 2)); \\ Michel Marcus, Apr 23 2019

Crossrefs

Cf. A030101, A325402.

Cf. A068636 (analog in base 10).

Sequence in context: A331804 A244568 A331471 * A336650 A343249 A327656

Adjacent sequences: A325398 A325399 A325400 * A325402 A325403 A325404

Keyword

nonn,look,base

Author

Francois Alcover, Apr 23 2019

Status

approved