|
%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
|
