A206446 Positions of 1 in A076478; complement of A206445.

2, 6, 7, 9, 10, 16, 18, 21, 22, 23, 26, 28, 29, 30, 32, 33, 34, 42, 45, 49, 50, 52, 56, 58, 60, 61, 64, 65, 66, 67, 71, 74, 75, 77, 79, 81, 82, 83, 84, 87, 88, 90, 91, 92, 93, 95, 96, 97, 98, 108, 112, 117, 118, 121, 126, 128, 131, 132, 136, 137, 138, 140, 145

Offset: 1

Author

Clark Kimberling, Feb 08 2012

Keywords

• nonn

Examples

			The positions of 1 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,...
are 2,6,7,9,10,16,...
		

Crossrefs

Cf. A076478, A206445.

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 *)