login
Positions of 0 in A076478; complement of A206446.
2

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

%S 1,3,4,5,8,11,12,13,14,15,17,19,20,24,25,27,31,35,36,37,38,39,40,41,

%T 43,44,46,47,48,51,53,54,55,57,59,62,63,68,69,70,72,73,76,78,80,85,86,

%U 89,94,99,100,101,102,103,104,105,106,107,109,110,111,113,114

%N Positions of 0 in A076478; complement of A206446.

%e The positions of 0 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,...

%e are 1,3,4,5,9,11,12,13,14,15,...

%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, A206446.

%K nonn

%O 1,2

%A _Clark Kimberling_, Feb 08 2012