The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A289018 Positions of 1 in A289016; complement of A289017. 3
 3, 10, 14, 17, 21, 24, 28, 35, 41, 45, 48, 52, 56, 60, 67, 71, 78, 84, 88, 91, 95, 98, 102, 105, 109, 113, 117, 124, 131, 135, 138, 142, 146, 149, 153, 156, 160, 167, 173, 177, 180, 184, 191, 198, 205, 212, 216, 219, 223, 227, 231, 238, 244, 248, 251, 255 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Conjecture: a(n)/n -> 4.55..., and if m denotes this numbrer, then -1 < m - a(n)/n < -3 + m for n >= 1. LINKS MATHEMATICA z = 11; (* number of iterates *) s = {0, 0}; w[0] = StringJoin[Map[ToString, s]]; w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "000"}] TableForm[Table[w[n], {n, 0, 10}]] st = ToCharacterCode[w[z]] - 48   (* A289016 *) Flatten[Position[st, 0]]  (* A289017 *) Flatten[Position[st, 1]]  (* A289018 *) CROSSREFS Cf. A289016, A289017. Sequence in context: A289151 A085776 A289106 * A316672 A288993 A190706 Adjacent sequences:  A289015 A289016 A289017 * A289019 A289020 A289021 KEYWORD nonn,easy AUTHOR Clark Kimberling, Jun 26 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 1 00:54 EDT 2020. Contains 337440 sequences. (Running on oeis4.)