A288927 Positions of 0 in A288926; complement of A288928.

2, 3, 4, 5, 7, 8, 9, 12, 13, 14, 16, 17, 18, 20, 21, 22, 24, 25, 26, 29, 30, 31, 32, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 48, 50, 51, 52, 53, 55, 56, 57, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 74, 75, 76, 78, 79, 80, 81, 83, 84, 85, 88, 89, 90, 91, 92

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.39..., 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" -> "1000", "10" -> "0001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[53]] - 48   (* A288926 *)
Flatten[Position[st, 0]]  (* A288927 *)
Flatten[Position[st, 1]]  (* A288928 *)

Crossrefs

Cf. A288926, A288928.

Sequence in context: A265641 A192140 A084092 * A342513 A086753 A160519

Adjacent sequences: A288924 A288925 A288926 * A288928 A288929 A288930

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved