cp's OEIS Frontend

A279624 Numbers x such that BCR(x) = R(x), where BCR = binary-complement-and-reverse = take one's complement then reverse bit order and R(x) is the digits reverse of n.

%I A279624 #19 Dec 23 2016 21:24:01
%S A279624 2,61,212,232,666,868,2222,642246,687588,820491,885786,2283822,
%T A279624 2459542,2807082,2860682,45377354,214878412,841191148,841740971,
%U A279624 49126162194
%N A279624 Numbers x such that BCR(x) = R(x), where BCR = binary-complement-and-reverse = take one's complement then reverse bit order and R(x) is the digits reverse of n.
%e A279624 687588 in base 2 is 10100111110111100100. Its binary-complement-and-reverse is 11011000010000011010, which is 885786 in base 10.
%p A279624 with(numtheory): T:=proc(w) local x, y, z; x:=w; y:=0;
%p A279624 for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:
%p A279624 P:=proc(q) local a,b, k,n; for n from 1 to q do a:=convert(n,base,2); b:=0;
%p A279624 for k from 1 to nops(a) do if a[k]=0 then a[k]:=1 else a[k]:=0; fi; b:=2*b+a[k]; od;
%p A279624 if b=n then print(n); fi; od; end: P(10^6);
%t A279624 Select[Range[10^6], MatchQ @@ {FromDigits[#, 2] &@ Reverse[ IntegerDigits[#, 2] /. {0 -> 1, 1 -> 0}], FromDigits@ Reverse@ IntegerDigits@ #} &] (* _Michael De Vlieger_, Dec 16 2016 *)
%Y A279624 Cf. A004086, A035928, A036044.
%K A279624 nonn,base,more
%O A279624 1,1
%A A279624 _Paolo P. Lava_, Dec 16 2016
%E A279624 a(17)-a(20) from _Hans Havermann_, Dec 23 2016