[go: up one dir, main page]

login
A285384
Limiting 1-word of the morphism 0 -> 11, 1 -> 01.
5
1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1
OFFSET
1
FORMULA
a(n) = A285383(n) for n >= 2.
EXAMPLE
0 -> 11-> 0101 -> 11011101 -> 0101110101011101 -> ...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1}}] &, {0}, 16] (* this sequence *)
Flatten[Position[s, 0]] (* A072939 *)
Flatten[Position[s, 1]] (* A285385 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 26 2017
EXTENSIONS
NAME corrected by R. J. Mathar, Nov 05 2019
STATUS
approved