A287448 Positions of 1 in A287382; complement of A287440.

3, 4, 10, 12, 15, 16, 22, 23, 27, 33, 37, 40, 42, 45, 46, 52, 53, 59, 61, 64, 65, 69, 73, 76, 77, 83, 84, 88, 92, 95, 96, 100, 106, 107, 113, 117, 120, 122, 125, 126, 132, 133, 139, 141, 144, 145, 151, 152, 156, 162, 166, 169, 171, 174, 175, 179, 183, 186

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.19..., and if m denotes this number, then -1 < m - a(n)/n) < 2 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, A287440.

Sequence in context: A370860 A243681 A242881 * A325235 A135116 A362743

Adjacent sequences: A287445 A287446 A287447 * A287449 A287450 A287451

Keyword

nonn,easy

Author

Clark Kimberling, Jun 18 2017

Status

approved