%I #6 Sep 29 2024 21:10:49
%S 0,1,10,100,101,1000,1010,10000,10100,100000,100001,101000,1000000,
%T 1000001,1000010,1010000,10000000,10000001,10000010,10000100,10000101,
%U 10001111,10100000,10100001,100000000,100000001,100000010,100000100,100000101,100001000,100001010
%N Sequence A115831 in binary.
%F a(n) = A007088(A115831(n)).
%t Map[FromDigits[IntegerDigits[#, 2]] &, Select[Range[0, 500], BitXor[9*#, 16*#] == 25*# &]] (* _Paolo Xausa_, Sep 29 2024 *)
%Y Cf. A007088, A115831.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, Feb 01 2006