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

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A288372 Fixed point of the mapping 00->0001, 1->01, starting with 00. 3
0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

LINKS

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

EXAMPLE

Iterates, starting with 00:

00

0001

0001001

0001001000101

00010010001010001001001

000100100010100010010010001001000101000101

MATHEMATICA

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];

w[n_] := StringReplace[w[n - 1], {"00" -> "0001", "1" -> "01"}]

Table[w[n], {n, 0, 8}]

st = ToCharacterCode[w[11]] - 48   (* A288372 *)

Flatten[Position[st, 0]]  (* A288373 *)

Flatten[Position[st, 1]]  (* A288374 *)

Table[StringLength[w[n]], {n, 1, 35}] (* A287381 conjectured *)

CROSSREFS

Cf. A288373, A288374, A287381.

Sequence in context: A341613 A163533 A020987 * A072786 A320926 A144597

Adjacent sequences:  A288369 A288370 A288371 * A288373 A288374 A288375

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Jun 09 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 December 6 03:33 EST 2021. Contains 349562 sequences. (Running on oeis4.)