A288383 Positions of 1 in A288381; complement of A288382.

4, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75

Offset: 1

Author

Clark Kimberling, Jun 10 2017

Keywords

• nonn
• easy

Comments

a(n+1)/a(n)-> 1.

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A288381, A288382.

Programs

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0001", "1" -> "11"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288381 *)
Flatten[Position[st, 0]]  (* A288382 *)
Flatten[Position[st, 1]]  (* A288383 *)

Formula

a(n) = -1 + A288133(n-1) for n >= 2.