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

 

Logo


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

Table of n, a(n) for n=1..56.

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.

License Agreements, Terms of Use, Privacy Policy. .

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