|
Search: id:A103684
|
|
|
| A103684 |
|
Triangle read by rows, based on the morphism f: 1->{1,2}, 2->{1,3}, 3->{3}. First row is 1. If current row is a,b,c,..., then the next row is a,b,c,...,f(a),f(b),f(c),... |
|
+0
13
|
|
| 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 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, 1, 2, 1, 3, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
EXAMPLE
|
[1], [1,1,2], [1,1,2,1,2,1,2,1,3], [1,1,2,1,2,1,2,1,3,1,2,1,2,1,3,1,2,1,3,1,2,1,3,1,2,1], ...
|
|
MATHEMATICA
|
NestList[ Flatten[ Join[ #, # /. {1 -> {1, 2}, 2 -> {1, 3}}]] &, {1}, 4] // Flatten (from Robert G. Wilson v (rgwv(at)rgwv.com), Jul 09 2006)
|
|
PROGRAM
|
(PARI) {a(n)=local(m, v, w); v=w=[1]; while(length(w)<n, m=length(v); for(k=1, m, v=concat(v, [[1, 2], [1, 3], [1]][v[k]])); w=concat(w, v)); w[n]} /* Michael Somos Apr 16 2005 */
|
|
CROSSREFS
|
Cf. A073058, A103685, A103682.
Sequence in context: A131406 A029440 A061337 this_sequence A105103 A086669 A053574
Adjacent sequences: A103681 A103682 A103683 this_sequence A103685 A103686 A103687
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 26 2005
|
|
|
Search completed in 0.002 seconds
|
