A288625 Positions of 0 in A288375; complement of A283794.

2, 3, 5, 7, 8, 11, 12, 14, 17, 18, 20, 22, 23, 27, 28, 30, 32, 33, 36, 37, 39, 43, 44, 46, 48, 49, 52, 53, 55, 58, 59, 61, 63, 64, 69, 70, 72, 74, 75, 78, 79, 81, 84, 85, 87, 89, 90, 94, 95, 97, 99, 100, 103, 104, 106, 111, 112, 114, 116, 117, 120, 121, 123

Offset

1,1

Comments

Conjecture: a(n)/n -> 2, and 0 < 2 - a(n)/n < 1/2 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" -> "1000", "10" -> "1001"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[24]] - 48;   (* A288375 *)
p0 = Flatten[Position[st, 0]];  (* A288625 *)
p1 = Flatten[Position[st, 1]];  (* A283794 *)

Crossrefs

Cf. A288625, A283794.

Sequence in context: A083028 A370867 A281015 * A189168 A182799 A112929

Adjacent sequences: A288622 A288623 A288624 * A288626 A288627 A288628

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved