OEIS/morfix

From teherba.org
Jump to: navigation, search

Fixed points of morphisms

Mathematica

(* A245553 A Rauzy fractal sequence: trajectory of 1 under morphism 1 -> 2,3; 2 -> 3; 3 -> 1.*) 
Nest[Function[k, {Flatten[(k /. {1 -> {2, 3}, 2 -> {3}, 3 -> {1} })] }], {1}, 15]