|
| |
|
|
A096271
|
|
Ternary sequence which is a fixed point of the morphism 0 -> 01, 1 -> 02, 2 -> 00.
|
|
2
| |
|
|
0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
FORMULA
| Recurrence: a(2n) = 0, a(2n+1) = (a(n)+1) mod 3. - Ralf Stephan, Dec 11 2004
|
|
|
MATHEMATICA
| Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {0, 0}})]}], {0}, 7] (from Robert G. Wilson v Feb 26 2005)
|
|
|
PROG
| (PARI) map(d)=if(d==2, [0, 0], if(d==1, [0, 2], [0, 1]))
{m=53; v=[]; w=[0]; while(v!=w, v=w; w=[]; for(n=1, min(m, length(v)), w=concat(w, map(v[n])))); for(n=1, 2*m, print1(v[n], ", "))} - Klaus Brockhaus, Jun 23 2004
|
|
|
CROSSREFS
| Cf. A071858.
Sequence in context: A161520 A070097 A202523 * A034876 A091393 A110270
Adjacent sequences: A096268 A096269 A096270 * A096272 A096273 A096274
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Jun 23 2004
|
|
|
EXTENSIONS
| More terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 23 2004
|
| |
|
|
