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

Links

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

Example

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

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

Sequence in context: A299421 A327181 A047554 * A079335 A278999 A190784

Adjacent sequences: A206443 A206444 A206445 * A206447 A206448 A206449

Keyword

nonn

Author

Clark Kimberling, Feb 08 2012

Status

approved