cp's OEIS Frontend

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

%I A325401 #23 May 05 2019 10:08:06
%S A325401 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,
%T A325401 23,15,31,1,33,17,35,9,37,25,39,5,37,21,43,13,45,29,47,3,35,19,51,11,
%U A325401 43,27,55,7,39,23,55,15,47,31,63
%N A325401 minflip(n) = min(n, r(n)) where r(n) is the binary reverse of n.
%H A325401 Francois Alcover, <a href="/A325401/b325401.txt">Table of n, a(n) for n = 0..16384</a>
%F A325401 a(n) = min(n,A030101(n)).
%e A325401 a(2) = min(2, r(2))
%e A325401      = min(2, b'01')
%e A325401      = min(2,1)
%e A325401      = 1.
%p A325401 a:= proc(n) local m, r; m:=n; r:=0;
%p A325401       while m>0 do r:=r*2+irem(m, 2, 'm') od;
%p A325401       min(n, r)
%p A325401     end:
%p A325401 seq(a(n), n=0..127);  # _Alois P. Heinz_, Apr 23 2019
%o A325401 (PARI) a(n) = min(n, fromdigits(Vecrev(binary(n)), 2)); \\ _Michel Marcus_, Apr 23 2019
%Y A325401 Cf. A030101, A325402.
%Y A325401 Cf. A068636 (analog in base 10).
%K A325401 nonn,look,base
%O A325401 0,4
%A A325401 _Francois Alcover_, Apr 23 2019