|
%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
|
