A287527 Positions of 0 in A287372; complement of A287402.

1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 60, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 78, 79, 80

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.20..., 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" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[22]] - 48   (* A287372 *)
Flatten[Position[st, 0]]  (* A287527 *)
Flatten[Position[st, 1]]  (* A287402 *)

Crossrefs

Cf. A287372, A287402.

Sequence in context: A065000 A188292 A171948 * A045749 A187570 A045671

Adjacent sequences: A287524 A287525 A287526 * A287528 A287529 A287530

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2017

Status

approved