A288276 -id:A288276 - cp's OEIS frontend

A288552 Positions of 0 in A288551; complement of A288553.

1, 2, 5, 6, 9, 10, 13, 16, 17, 20, 23, 24, 27, 28, 31, 32, 35, 38, 39, 42, 45, 46, 49, 50, 53, 54, 57, 60, 61, 64, 67, 69, 71, 74, 77, 78, 81, 84, 85, 88, 89, 92, 93, 96, 99, 100, 103, 106, 108, 110, 113, 116, 117, 120, 123, 124, 127, 128, 131, 132, 135, 138

Offset: 1

Clark Kimberling, Jun 14 2017

Conjecture: a(n)/n -> 2.34..., and if m denotes this number, then -1 < m - a(n)/n < 2 for n >= 1.

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

Cf. A288551, A288553, A288276.

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0101", "1" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288551 *)
Flatten[Position[st, 0]]  (* A288552 *)
Flatten[Position[st, 1]]  (* A288553 *)

A288553 Positions of 1 in A288551; complement of A288552.

Original entry on oeis.org

3, 4, 7, 8, 11, 12, 14, 15, 18, 19, 21, 22, 25, 26, 29, 30, 33, 34, 36, 37, 40, 41, 43, 44, 47, 48, 51, 52, 55, 56, 58, 59, 62, 63, 65, 66, 68, 70, 72, 73, 75, 76, 79, 80, 82, 83, 86, 87, 90, 91, 94, 95, 97, 98, 101, 102, 104, 105, 107, 109, 111, 112, 114

Offset: 1

Clark Kimberling, Jun 14 2017

Conjecture: a(n)/n -> 1.74..., and if m denotes this number, then -2 < m - a(n)/n < 1 for n >= 1.

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

Cf. A288551, A288552, A288276.

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0101", "1" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288551 *)
Flatten[Position[st, 0]]  (* A288552 *)
Flatten[Position[st, 1]]  (* A288553 *)

cp's OEIS Frontend

A288552 Positions of 0 in A288551; complement of A288553.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica