|
| |
|
|
A092782
|
|
Fixed point of the morphism 1 -> 12, 2 -> 13, 3 -> 1, starting from a(1) = 1.
|
|
7
| |
|
|
1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| See A103269 for another version with further references and comments.
|
|
|
REFERENCES
| V. F. Sirvent, Semigroups and the self-similar structure of the flipped tribonacci substitution, Applied Math. Letters, 12 (1999), 25-29. [Contains many further references.]
|
|
|
FORMULA
| a(n) = 1 for n in A003144; a(n) = 2 for n in A003145; a(n) = 3 for n in A003146.
|
|
|
MATHEMATICA
| Nest[ Function[ l, {Flatten[(l /. {1 -> {1, 2}, 2 -> {1, 3}, 3 -> {1}})] }], {1}, 8] (from Robert G. Wilson v Mar 04 2005)
|
|
|
PROG
| Contribution from Gerald McGarvey (gerald.mcgarvey(AT)comcast.net), Dec 18 2009: (Start)
(PARI) w=vector(9, x, []); w[1]=[1];
for(n=2, 9, for(k=1, #w[n-1], m=w[n-1][k]; v=[]; if(m-1, if(m-2, v=[1], v=[1, 3]), v=[1, 2]); w[n]=concat(w[n], v)));
w[9] (End)
|
|
|
CROSSREFS
| Cf. A003144 A003145 A003146 A100619 A103269.
Sequence in context: A092412 A078734 A028293 * A174532 A089242 A185894
Adjacent sequences: A092779 A092780 A092781 * A092783 A092784 A092785
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Apr 23 2004
|
| |
|
|
