A284939 Fixed point of the morphism 0 -> 01, 1 -> 1101, starting with 0.

0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1

Offset

1

Comments

The other fixed point is 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, ... - Michel Dekking, Jan 22 2018

Links

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

Index entries for sequences that are fixed points of mappings

Example

0 -> 01-> 011101 -> 01110111011101011101 -> ...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 0, 1}}] &, {0}, 6] (* A284939 *)
Flatten[Position[s, 0]]  (* A080580 *)
Flatten[Position[s, 1]]  (* A284941 *)

Crossrefs

Cf. A080580, A284941.

Sequence in context: A140318 A060584 A098725 * A188260 A341625 A359550

Adjacent sequences: A284936 A284937 A284938 * A284940 A284941 A284942

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Extensions

Name clarified by Michel Dekking, Jan 22 2018

Status

approved