A288522 Positions of 1 in A288520; complement of A288521.

3, 6, 9, 12, 14, 16, 19, 21, 23, 26, 28, 30, 34, 38, 41, 43, 45, 49, 53, 56, 58, 60, 64, 68, 72, 75, 78, 82, 85, 88, 91, 93, 95, 99, 103, 107, 110, 113, 117, 120, 123, 126, 128, 130, 134, 138, 142, 145, 148, 152, 155, 158, 162, 165, 168, 171, 173, 175, 178

Offset

1,1

Comments

Conjecture: a(n)/n -> 2.91..., 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[18]] - 48   (* A288520 *)
Flatten[Position[st, 0]]  (* A288521 *)
Flatten[Position[st, 1]]  (* A288522 *)

Crossrefs

Cf. A288520, A288521.

Sequence in context: A102014 A337091 A168045 * A226894 A359213 A091780

Adjacent sequences: A288519 A288520 A288521 * A288523 A288524 A288525

Keyword

nonn,easy

Author

Clark Kimberling, Jun 13 2017

Status

approved