A288712 Positions of 0 in A288711; complement of A288713.

2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 14, 15, 16, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 38, 40, 41, 42, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 56, 57, 58, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 72, 73, 74, 76, 77, 78, 79, 80, 82

Offset

1,1

Comments

Conjecture: a(n)/n-> -1 + sqrt(5), and if m denotes this number, then -1 < m - a(n)/n) < 1 for n >= 1.

Appears to differ from A288708 only at a(1). - R. J. Mathar, Jun 19 2017

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" -> "00"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[9]] - 48   (* A288711 *)
Flatten[Position[st, 0]]  (* A288712 *)
Flatten[Position[st, 1]]  (* A288713 *)

Crossrefs

Cf. A288711, A288713.

Sequence in context: A114024 A030173 A048265 * A002180 A207333 A179182

Adjacent sequences: A288709 A288710 A288711 * A288713 A288714 A288715

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved