A288623 Positions of 0 in A288622; complement of A288624.

1, 2, 4, 6, 9, 10, 12, 15, 16, 18, 21, 22, 24, 25, 27, 28, 30, 32, 35, 36, 38, 41, 42, 44, 45, 47, 48, 50, 52, 55, 56, 58, 61, 62, 64, 65, 67, 68, 70, 72, 75, 76, 78, 79, 81, 83, 86, 87, 89, 90, 92, 94, 97, 98, 100, 103, 104, 106, 109, 110, 112, 113, 115

Offset

1,2

Comments

Conjecture: a(n)/n->1.83..., 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" -> "0110", "1" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288622 *)
Flatten[Position[st, 0]]  (* A288623 *)
Flatten[Position[st, 1]]  (* A288624 *)

Crossrefs

Cf. A288622, A288624.

Sequence in context: A024968 A047411 A368342 * A138972 A050110 A184416

Adjacent sequences: A288620 A288621 A288622 * A288624 A288625 A288626

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved