A288379 Positions of 1 in A288377; complement of A288378.

4, 6, 9, 14, 15, 20, 24, 25, 27, 32, 36, 37, 42, 44, 46, 49, 54, 58, 59, 64, 66, 68, 73, 77, 78, 81, 84, 89, 90, 95, 99, 100, 105, 107, 109, 114, 118, 119, 122, 125, 130, 134, 135, 140, 142, 144, 149, 150, 155, 156, 161, 165, 166, 168, 173, 177, 178, 183

Offset

1,1

Comments

Conjecture: a(n)/n-> 3.13..., and if m denotes this number, then -1 < m - a(n)/n < 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" -> "0001", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288377 *)
Flatten[Position[st, 0]]  (* A288378 *)
Flatten[Position[st, 1]]  (* A288379 *)

Crossrefs

Cf. A288377, A288378.

Sequence in context: A120134 A241451 A354965 * A112381 A182150 A108634

Adjacent sequences: A288376 A288377 A288378 * A288380 A288381 A288382

Keyword

nonn,easy

Author

Clark Kimberling, Jun 10 2017

Status

approved