|
Search: id:A038190
|
|
|
| A038190 |
|
Pagoda sequence: a(0) = b(n)-b(n-2) mod 3, where b(n) = A038189[ n ]. |
|
+0
3
|
|
| 2, 2, 0, 1, 0, 2, 1, 1, 2, 2, 0, 1, 1, 2, 0, 1, 2, 2, 0, 1, 0, 2, 1, 1, 0, 2, 2, 1, 1, 2, 0, 1, 2, 2, 0, 1, 0, 2, 1, 1, 2, 2, 0, 1, 1, 2, 0, 1, 0, 2, 2, 1, 0, 2, 1, 1, 0, 2, 2, 1, 1, 2, 0, 1, 2, 2, 0, 1, 0, 2, 1, 1, 2, 2, 0, 1, 1, 2, 0, 1, 2, 2, 0, 1, 0, 2, 1, 1, 0, 2, 2, 1, 1, 2, 0, 1, 0, 2, 2, 1, 0, 2, 1, 1, 2, 2, 0, 1
(list; graph; listen)
|
|
|
OFFSET
|
-2,1
|
|
|
REFERENCES
|
Pagodas and Sackcloth: Ternary Sequences of Considerable Linear Complexity, W. F.Lunnon, Maynooth, November 1998.
|
|
FORMULA
|
Repeated iteration of the inflation morphism A -> AB, B -> AD, C -> CB, D -> CD; giving ABADABCDABADCBCDABADABCDCBADCBCD ..., followed by the final morphism A -> 2201, B -> 0211, C -> 0221, D -> 1201 ., giving the Pagoda K_n mod 3 = 22010211 22011201 22010211 02211201 ...
|
|
MATHEMATICA
|
Nest[ Flatten[ # /. {a -> {a, b}, b -> {a, d}, c -> {c, b}, d -> {c, d}}] &, {a}, 5] /. {a -> {2, 2, 0, 1}, b -> {0, 2, 1, 1}, c -> {0, 2, 2, 1}, d -> {1, 2, 0, 1}} // Flatten (from Robert G. Wilson v Mar 04 2005)
|
|
CROSSREFS
|
Cf. A038189.
Sequence in context: A113685 A049825 A039651 this_sequence A163537 A117449 A004594
Adjacent sequences: A038187 A038188 A038189 this_sequence A038191 A038192 A038193
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Fred Lunnon (fred(AT)csa5.cs.may.ie)
|
|
EXTENSIONS
|
More terms from David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
