A287440 Positions of 0 in A287382; complement of A287448.

1, 2, 5, 6, 7, 8, 9, 11, 13, 14, 17, 18, 19, 20, 21, 24, 25, 26, 28, 29, 30, 31, 32, 34, 35, 36, 38, 39, 41, 43, 44, 47, 48, 49, 50, 51, 54, 55, 56, 57, 58, 60, 62, 63, 66, 67, 68, 70, 71, 72, 74, 75, 78, 79, 80, 81, 82, 85, 86, 87, 89, 90, 91, 93, 94, 97

Offset

1,2

Comments

Conjecture: a(n)/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   (* A287382 *)
Flatten[Position[st, 0]]  (* A287440 *)
Flatten[Position[st, 1]]  (* A287448 *)

Crossrefs

Cf. A287382, A287448.

Sequence in context: A039067 A202114 A228090 * A111175 A047326 A039044

Adjacent sequences: A287437 A287438 A287439 * A287441 A287442 A287443

Keyword

nonn,easy

Author

Clark Kimberling, Jun 18 2017

Status

approved