A288215 Positions of 1 in A288213; complement of A288215.

3, 6, 7, 10, 13, 14, 16, 17, 20, 23, 24, 27, 30, 31, 33, 34, 37, 38, 40, 41, 44, 47, 48, 51, 54, 55, 57, 58, 61, 64, 65, 68, 71, 72, 74, 75, 78, 79, 81, 82, 85, 88, 89, 91, 92, 95, 96, 98, 99, 102, 105, 106, 109, 112, 113, 115, 116, 119, 122, 123, 126, 129

Offset

1,1

Comments

-1 < 2 - a(n)/n < 0 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" -> "0010", "1" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288213 *)
Flatten[Position[st, 0]]  (* A288214 *)
Flatten[Position[st, 1]]  (* A288215 *)

Crossrefs

Cf. A288213, A288214.

Sequence in context: A101885 A096068 A045412 * A284625 A047281 A182909

Adjacent sequences: A288212 A288213 A288214 * A288216 A288217 A288218

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved