A288525 Positions of 0 in A288524; complement of A288526.

1, 3, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 19, 20, 22, 23, 25, 26, 27, 29, 30, 32, 33, 35, 36, 37, 39, 40, 42, 43, 45, 46, 48, 50, 52, 53, 55, 57, 59, 60, 61, 63, 64, 66, 67, 69, 70, 72, 74, 76, 77, 79, 81, 83, 84, 85, 87, 88, 90, 91, 93, 94, 96, 98, 100, 101

Offset

1,2

Comments

Conjecture: a(n)/n - > 1.52..., 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" -> "0101", "10" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[19]] - 48   (* A288524 *)
Flatten[Position[st, 0]]  (* A288525 *)
Flatten[Position[st, 1]]  (* A288526 *)

Crossrefs

Cf. A288524, A288526.

Sequence in context: A020884 A183855 A024352 * A134407 A218979 A325417

Adjacent sequences: A288522 A288523 A288524 * A288526 A288527 A288528

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved