A283794 Positions of 1 in A288375; complement of A288625.

1, 4, 6, 9, 10, 13, 15, 16, 19, 21, 24, 25, 26, 29, 31, 34, 35, 38, 40, 41, 42, 45, 47, 50, 51, 54, 56, 57, 60, 62, 65, 66, 67, 68, 71, 73, 76, 77, 80, 82, 83, 86, 88, 91, 92, 93, 96, 98, 101, 102, 105, 107, 108, 109, 110, 113, 115, 118, 119, 122, 124, 125

Offset

1,2

Comments

Conjecture: a(n)/n -> 2, and -1/4 < 2 - 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" -> "1001"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[24]] - 48;   (* A288375 *)
p0 = Flatten[Position[st, 0]];  (* A288625 *)
p1 = Flatten[Position[st, 1]];  (* A283794 *)

Crossrefs

Cf. A288375, A288625.

Sequence in context: A123249 A171136 A189167 * A287003 A214068 A330182

Adjacent sequences: A283791 A283792 A283793 * A283795 A283796 A283797

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved