login
Binary expansion of numbers in A171763.
3

%I #7 Sep 01 2020 08:42:10

%S 101,1001,1011,10001,10011,10101,10111,100001,100011,100101,100111,

%T 101001,101011,101101,101111,1000001,1000011,1000101,1000111,1001001,

%U 1001011,1001101,1001111,1010001,1010011,1010101,1010111,1011001,1011011,1011101,1011111,10000001

%N Binary expansion of numbers in A171763.

%H Amiram Eldar, <a href="/A171764/b171764.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A007088(A171763(n)). - _Amiram Eldar_, Sep 01 2020

%t bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[3, 130, 2], IntegerDigits[#, 2][[1 ;; 2]] == {1, 0} &] (* _Amiram Eldar_, Sep 01 2020 *)

%Y Cf. A007088, A171763.

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_, Oct 12 2010