cp's OEIS Frontend

A325402 maxflip(n) = max(n, r(n)) where r(n) is the binary reverse of n.

%I A325402 #17 May 05 2019 10:07:32
%S A325402 0,1,2,3,4,5,6,7,8,9,10,13,12,13,14,15,16,17,18,25,20,21,22,29,24,25,
%T A325402 26,27,28,29,30,31,32,33,34,49,36,41,38,57,40,41,42,53,44,45,46,61,48,
%U A325402 49,50,51,52,53,54,59,56,57,58,59,60,61,62,63
%N A325402 maxflip(n) = max(n, r(n)) where r(n) is the binary reverse of n.
%H A325402 Alois P. Heinz, <a href="/A325402/b325402.txt">Table of n, a(n) for n = 0..16384</a> (first 257 terms from Francois Alcover)
%F A325402 a(n) = max(n,A030101(n)).
%e A325402 a(10) = max(10, r(10))
%e A325402       = max(10, b'0101')
%e A325402       = max(10, 5)
%e A325402       = 10.
%e A325402 a(11) = max(11, r(11))
%e A325402       = max(11, b'1101')
%e A325402       = max(11, 13)
%e A325402       = 13.
%p A325402 a:= proc(n) local m, r; m:=n; r:=0;
%p A325402       while m>0 do r:=r*2+irem(m, 2, 'm') od;
%p A325402       max(n, r)
%p A325402     end:
%p A325402 seq(a(n), n=0..127);  # _Alois P. Heinz_, Apr 23 2019
%o A325402 (PARI) a(n) = max(n, fromdigits(Vecrev(binary(n)), 2)); \\ _Michel Marcus_, Apr 24 2019
%Y A325402 Cf. A030101, A325401.
%Y A325402 Cf. A068637 (analog in base 10).
%K A325402 nonn,look,base
%O A325402 0,3
%A A325402 _Francois Alcover_, Apr 23 2019