login
A287663
{0->1, 1->000}-transform of the infinite Fibonacci word A003849.
3
1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0
OFFSET
1
COMMENTS
Guide to related sequences:
Transformation of A003849 Position sequences for 0 and 1
A287772, 0->1, 1->00 A287775, A050140
A287773, 0->011, 1->101 A287774, A287777
A287663: 0->1; 1->000 A287664, A287665
A287674: 0->1; 1->001 A287675, A287676
A287722: 0->1; 1->010 A287723, A287724
A287725: 0->1; 1->011 A287726, A287727
A287769: 0->1; 1->110 A276855, A287770
LINKS
EXAMPLE
As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 1 and each 1 by 000 gives 100011000100011000110001000110001...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "1", "1" -> "000"}]
st = ToCharacterCode[w1] - 48 (* A287663 *)
Flatten[Position[st, 0]] (* A287664 *)
Flatten[Position[st, 1]] (* A287665 *)
CROSSREFS
Sequence in context: A187615 A369653 A120528 * A195376 A164950 A068433
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 02 2017
EXTENSIONS
Edited by Clark Kimberling, Oct 09 2017
STATUS
approved