%I #5 Oct 01 2024 03:05:01

%S 0,111,1110,11100,100111,110111,111000,1001110,1101110,1110000,

%T 10011100,10100111,11011100,11100000,100100111,100110111,100111000,

%U 101001110,110110111,110111000,111000000,111000111,1001001110,1001101110,1001110000,1010011100,1010100111

%N Sequence A115815 in binary.

%F a(n) = A007088(A115815(n)).

%t Map[FromDigits[IntegerDigits[#, 2]] &, Select[Range[0, 1000], BitXor[2*#, 7*#] == 9*# &]] (* _Paolo Xausa_, Oct 01 2024 *)

%Y Cf. A007088, A115815.

%K nonn,base

%O 0,2

%A _Antti Karttunen_, Feb 01 2006