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,2

Links

Table of n, a(n) for n=1..63.

Example

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

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

Crossrefs

Cf. A076478, A206446.

Sequence in context: A079347 A080726 A101210 * A047599 A332414 A050846

Adjacent sequences: A206442 A206443 A206444 * A206446 A206447 A206448

Keyword

nonn

Author

Clark Kimberling, Feb 08 2012

Status

approved