login
A285358
Fixed point of the morphism 0 -> 10, 1 -> 1101.
3
1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1
OFFSET
1
FORMULA
Conjecture: a(n) = A284929(n+1). - R. J. Mathar, May 08 2017
EXAMPLE
0 -> 10-> 1101 -> 11011101101101 ->
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 1}}] &, {0}, 10] (* A285358 *)
Flatten[Position[s, 0]] (* A285359 *)
Flatten[Position[s, 1]] (* A285360 *)
CROSSREFS
Sequence in context: A014339 A188090 A004547 * A230603 A229343 A085369
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 25 2017
STATUS
approved