A285697 Positions of 1 in A288741; complement of A288742.

2, 4, 5, 10, 12, 13, 15, 16, 18, 19, 24, 26, 27, 32, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 52, 54, 55, 60, 62, 63, 65, 66, 68, 69, 74, 76, 77, 82, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 99, 100, 102, 103, 108, 110, 111, 116, 118, 119, 121, 122, 124, 125

Offset

1,1

Comments

Conjecture: a(n)/n -> 2, and -1/2 < 2 - a(n)/n < 1/3 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" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[23]] - 48   (* A288741 *)
Flatten[Position[st, 0]]  (* A288742 *)
Flatten[Position[st, 1]]  (* A285697 *)

Crossrefs

Cf. A288741, A288742.

Sequence in context: A022770 A141481 A241268 * A047611 A325095 A120491

Adjacent sequences: A285694 A285695 A285696 * A285698 A285699 A285700

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2017

Extensions

Typo in definition corrected by Felix Fröhlich, Aug 06 2017

Status

approved