A288671 Positions of 0 in A288670; complement of A288672.

1, 4, 5, 8, 9, 11, 12, 13, 14, 17, 18, 21, 22, 24, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 41, 44, 45, 48, 49, 52, 53, 55, 56, 57, 58, 61, 62, 65, 66, 68, 69, 70, 71, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85, 88, 89, 91, 92, 93, 94, 96

Offset

1,2

Comments

Conjecture: a(n)/n->1.41..., 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" -> "0110", "10" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[13]] - 48   (* A288670 *)
Flatten[Position[st, 0]]  (* A288671 *)
Flatten[Position[st, 1]]  (* A288672 *)

Crossrefs

Cf. A288670, A288672.

Sequence in context: A358819 A042956 A128217 * A284906 A285260 A190671

Adjacent sequences: A288668 A288669 A288670 * A288672 A288673 A288674

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved