|
%I #7 Sep 01 2020 08:42:02
%S 10,100,1000,1010,10000,10010,10100,10110,100000,100010,100100,100110,
%T 101000,101010,101100,101110,1000000,1000010,1000100,1000110,1001000,
%U 1001010,1001100,1001110,1010000,1010010,1010100,1010110,1011000,1011010,1011100,1011110
%N Binary expansion of numbers in A171757.
%H Amiram Eldar, <a href="/A171758/b171758.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007088(A171757(n)). - _Amiram Eldar_, Sep 01 2020
%t bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[2, 100, 2], IntegerDigits[#, 2][[1 ;; 2]] == {1, 0} &] (* _Amiram Eldar_, Sep 01 2020 *)
%Y Cf. A007088, A171757.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Oct 12 2010
|
