|
|
A105316
|
|
Let s denote the 4-symbol substitution 1->{2, 3}, 2->{3, 4}, 3->{}, 4->{1, 3}; let S(1) = 1, and S(n+1) = concat( S(n), s(S(n)) ); then the sequence is S(1), S(2), S(3), ...
|
|
1
|
|
|
1, 1, 2, 3, 1, 2, 3, 2, 3, 3, 4, 1, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 1, 3, 1, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 1, 3, 2, 3, 3, 4, 3, 4, 1, 3, 3, 4, 1, 3, 1, 3, 2, 3, 1, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 1, 3, 2, 3, 3, 4, 3, 4, 1, 3, 3, 4, 1, 3, 1, 3, 2, 3, 2, 3, 3, 4, 3, 4, 1, 3, 3, 4, 1, 3, 1, 3, 2, 3, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
s[1] = {2, 3}; s[2] = {3, 4}; s[3] = {}; s[4] = {1, 3};
t[a_] := Join[a, Flatten[s /@ a]];
p[0] = {1}; p[1] = t[{1}]; p[n_] := t[p[n - 1]];
Flatten[Table[p[n], {n, 0, 6}]]
|
|
PROG
|
(PARI) \\ See links.
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition of s[4] corrected at the suggestion of Kevin Ryde by Georg Fischer, Mar 20 2024
|
|
STATUS
|
approved
|
|
|
|