%I #6 Sep 30 2024 03:21:09

%S 0,101,1010,1111,10100,11110,101000,101101,111100,1001111,1010000,

%T 1011010,1111000,10011110,10100000,10100101,10110100,11101101,

%U 11110000,100111100,101000000,101000101,101001010,101100101,101101000,111011010,111100000,1001111000,1010000000

%N Sequence A115817 in binary.

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

%t Map[FromDigits[IntegerDigits[#, 2]] &, Select[Range[0, 1000], BitXor[4*#, 13*#] == 17*# &]] (* _Paolo Xausa_, Sep 30 2024 *)

%Y Cf. A007088, A115817.

%K nonn,base

%O 0,2

%A _Antti Karttunen_, Feb 01 2006