%I #9 Feb 07 2023 05:54:37
%S 1,4,5,6,8,9,12,14,17,18,19,22,25,26,27,29,30,33,34,35,38,39,40,42,43,
%T 46,48,51,52,53,55,56,59,60,61,63,64,67,69,72,73,74,77,80,81,82,84,85,
%U 88,90,93,94,95,97,98,101,103,106,107,108,111,114,115,116,118,119,122
%N Partial sums of A095276.
%H Amiram Eldar, <a href="/A095279/b095279.txt">Table of n, a(n) for n = 1..10000</a>
%t Accumulate[Length /@ Split[Mod[DigitCount[Select[Range[0, 1000], BitAnd[#, 2 #] == 0 &], 2, 1], 2]]] (* _Amiram Eldar_, Feb 07 2023 *)
%Y Cf. A095276.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jun 01 2004
|