%I #5 Sep 30 2024 12:53:02
%S 0,101,1010,1101,10100,11010,100101,101000,110100,1000101,1001010,
%T 1001101,1010000,1101000,10001010,10001101,10010100,10011010,10100000,
%U 11001101,11010000,100010100,100011010,100100101,100101000,100110100,101000000,110011010,110100000
%N Sequence A115819 in binary.
%F a(n) = A007088(A115819(n)).
%t Map[FromDigits[IntegerDigits[#, 2]] &, Select[Range[0, 1000], BitXor[4*#, 15*#] == 19*# &]] (* _Paolo Xausa_, Sep 30 2024 *)
%Y Cf. A007088, A115819.
%K nonn,base
%O 0,2
%A _Antti Karttunen_, Feb 01 2006