A288464 Positions of 1 in A288462; complement of A288463.

2, 5, 7, 8, 11, 13, 16, 18, 19, 22, 25, 27, 28, 31, 33, 36, 38, 39, 42, 44, 45, 48, 50, 53, 55, 56, 59, 62, 64, 65, 68, 70, 73, 75, 76, 79, 81, 84, 86, 87, 90, 93, 95, 96, 99, 101, 104, 106, 107, 110, 112, 113, 116, 118, 121, 123, 124, 127, 130, 132, 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" -> "0101", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288462 *)
Flatten[Position[st, 0]]  (* A288463 *)
Flatten[Position[st, 1]]  (* A288464 *)

Crossrefs

Cf. A288462, A288463.

Sequence in context: A361461 A189296 A051279 * A111199 A359381 A276545

Adjacent sequences: A288461 A288462 A288463 * A288465 A288466 A288467

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2017

Status

approved