|
| |
|
|
A038190
|
|
Pagoda sequence: a(0) = b(n)-b(n-2) mod 3, where b(n) = A038189[ n ].
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A163537 A117449 A004594
Adjacent sequences: A038187 A038188 A038189 * 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)
|
| |
|
|
