A206446 - OEIS

%I #5 Mar 30 2012 18:58:12

%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