A206445 Positions of 0 in A076478; complement of A206446.

1, 3, 4, 5, 8, 11, 12, 13, 14, 15, 17, 19, 20, 24, 25, 27, 31, 35, 36, 37, 38, 39, 40, 41, 43, 44, 46, 47, 48, 51, 53, 54, 55, 57, 59, 62, 63, 68, 69, 70, 72, 73, 76, 78, 80, 85, 86, 89, 94, 99, 100, 101, 102, 103, 104, 105, 106, 107, 109, 110, 111, 113, 114

Offset: 1

Author

Clark Kimberling, Feb 08 2012

Keywords

• nonn

Examples

			The positions of 0 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,...
are 1,3,4,5,9,11,12,13,14,15,...
		

Crossrefs

Cf. A076478, A206446.

Programs

Mathematica

d[n_] := Rest@IntegerDigits[n + 1, 2] + 1;
t = -1 + Flatten[Array[d, 100]]
Flatten[Position[t, 0]]  (* A206445 *)
Flatten[Position[t, 1]]  (* A206446 *)