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,1

Comments

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

Links

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

Formula

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

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 *)

Crossrefs

Cf. A288381, A288382.

Sequence in context: A269330 A213627 A225871 * A001690 A105447 A242286

Adjacent sequences: A288380 A288381 A288382 * A288384 A288385 A288386

Keyword

nonn,easy

Author

Clark Kimberling, Jun 10 2017

Status

approved