A287531 Positions of 0 in A287530; complement of A287551.

2, 3, 4, 6, 7, 10, 11, 12, 14, 15, 16, 17, 18, 20, 21, 23, 25, 26, 29, 30, 31, 33, 34, 35, 37, 38, 41, 42, 43, 44, 45, 48, 49, 50, 52, 53, 54, 55, 56, 59, 60, 61, 62, 63, 65, 66, 67, 69, 70, 72, 74, 75, 78, 79, 80, 82, 83, 84, 86, 87, 90, 91, 92, 94, 95, 96

Offset

1,1

Comments

Conjecture: a(n)/ -> 1.45..., and if m denotes this number, then -1 < m - a(n)/n) < 1 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" -> "1000", "10" -> "001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[23]] - 48   (* A287530 *)
Flatten[Position[st, 0]]  (* A287531 *)
Flatten[Position[st, 1]]  (* A287551 *)

Crossrefs

Cf. A287530, A287551.

Sequence in context: A337659 A373041 A155905 * A047518 A335031 A179834

Adjacent sequences: A287528 A287529 A287530 * A287532 A287533 A287534

Keyword

nonn,easy

Author

Clark Kimberling, Jun 18 2017

Status

approved