A288635 Positions of 1 in A288633; complement of A288634.

2, 5, 6, 8, 10, 13, 16, 19, 20, 22, 25, 26, 28, 31, 32, 34, 36, 39, 42, 43, 45, 47, 50, 53, 54, 56, 58, 61, 64, 67, 68, 70, 73, 74, 76, 78, 81, 84, 87, 88, 90, 93, 94, 96, 98, 101, 104, 107, 108, 110, 113, 114, 116, 119, 120, 122, 124, 127, 130, 131, 133

Offset

1,1

Comments

Conjecture: a(n)/n->2.19..., 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" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288633 *)
Flatten[Position[st, 0]]  (* A288634 *)
Flatten[Position[st, 1]]  (* A288635 *)

Crossrefs

Cf. A288633, A288634.

Sequence in context: A284777 A344312 A081083 * A308595 A104493 A139532

Adjacent sequences: A288632 A288633 A288634 * A288636 A288637 A288638

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved