A288857 Positions of 1 in A288855; complement of A288856.

1, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 18, 19, 21, 22, 23, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83

Offset

1,2

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" -> "1000", "10" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[51]] - 48   (* A288855 *)
Flatten[Position[st, 0]]  (* A288856 *)
Flatten[Position[st, 1]]  (* A288857 *)

Crossrefs

Cf. A288855, A288856.

Sequence in context: A119368 A088721 A325435 * A201472 A005049 A128427

Adjacent sequences: A288854 A288855 A288856 * A288858 A288859 A288860

Keyword

nonn,easy

Author

Clark Kimberling, Jun 23 2017

Status

approved