A288737 Positions of 0 in A288736; complement of A288740.

1, 4, 5, 6, 7, 10, 13, 16, 17, 18, 19, 22, 23, 24, 25, 28, 31, 34, 37, 40, 41, 42, 43, 46, 47, 48, 49, 52, 55, 58, 59, 60, 61, 64, 65, 66, 67, 70, 73, 76, 79, 82, 85, 88, 89, 90, 91, 94, 95, 96, 97, 100, 103, 106, 107, 108, 109, 112, 113, 114, 115, 118, 121

Offset

1,2

Comments

Conjecture: a(n)/n -> 2, and 0 < 2 - 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" -> "1000", "10" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[22]] - 48   (* A288736 *)
Flatten[Position[st, 0]]  (* A288737 *)
Flatten[Position[st, 1]]  (* A288740 *)

Crossrefs

Cf. A288736, A288740.

Sequence in context: A065028 A107756 A080723 * A139448 A356398 A364803

Adjacent sequences: A288734 A288735 A288736 * A288738 A288739 A288740

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved