%I
%S 2,6,7,9,10,16,18,21,22,23,26,28,29,30,32,33,34,42,45,49,50,52,56,58,
%T 60,61,64,65,66,67,71,74,75,77,79,81,82,83,84,87,88,90,91,92,93,95,96,
%U 97,98,108,112,117,118,121,126,128,131,132,136,137,138,140,145
%N Positions of 1 in A076478; complement of A206445.
%e The positions of 1 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,...
%e are 2,6,7,9,10,16,...
%t d[n_] := Rest@IntegerDigits[n + 1, 2] + 1;
%t t = 1 + Flatten[Array[d, 100]]
%t Flatten[Position[t, 0]] (* A206445 *)
%t Flatten[Position[t, 1]] (* A206446 *)
%Y Cf. A076478, A206445.
%K nonn
%O 1,1
%A _Clark Kimberling_, Feb 08 2012
