A285303 Positions of 1 in A284932; complement of A285303.

3, 4, 6, 9, 13, 14, 18, 20, 22, 26, 28, 31, 34, 38, 40, 43, 47, 48, 52, 53, 57, 59, 62, 66, 67, 71, 73, 75, 79, 81, 83, 87, 89, 92, 96, 97, 101, 103, 105, 109, 111, 114, 117, 121, 123, 126, 129, 133, 135, 138, 142, 143, 147, 149, 151, 155, 157, 160, 163, 167

Offset

1,1

Comments

Conjecture : lim a(n)/n)) = 0.78... , and if m denotes this number, then -1 < a(n)/n - m < 1 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "001", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A284932 *)
Flatten[Position[st, 0]]  (* A285352 *)
Flatten[Position[st, 1]]  (* A285303 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A286938 *)

Crossrefs

Cf. A284932, A285352, A286938.

Sequence in context: A078743 A096846 A140570 * A135072 A375198 A032720

Adjacent sequences: A285300 A285301 A285302 * A285304 A285305 A285306

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved