A288933 Positions of 0 in A288932; complement of A288934.

2, 4, 7, 9, 13, 15, 18, 20, 25, 27, 30, 32, 36, 38, 41, 43, 49, 51, 54, 56, 60, 62, 65, 67, 72, 74, 77, 79, 83, 85, 88, 90, 97, 99, 102, 104, 108, 110, 113, 115, 120, 122, 125, 127, 131, 133, 136, 138, 144, 146, 149, 151, 155, 157, 160, 162, 167, 169, 172

Offset

1,1

Comments

Conjecture: a(n)/n -> 3, and 0 < 3 - a(n)/n < 1 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

a(n) = 3*n-1-HammingWeight(n-1) = 3*n-1-A000120(n-1) (conjectured). - Gleb Koloskov, May 06 2021

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "1000", "1" -> "10101"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288932 *)
Flatten[Position[st, 0]]  (* A288933 *)
Flatten[Position[st, 1]]  (* A288934 *)

Crossrefs

Cf. A288932, A288934, A000120.

Sequence in context: A087158 A195669 A277733 * A129259 A077597 A183873

Adjacent sequences: A288930 A288931 A288932 * A288934 A288935 A288936

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved