|
|
A317952
|
|
Trajectory of 1 under repeated application of the morphism 1->121, 2->232, 3->343, 4->414.
|
|
1
|
|
|
1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 3, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 3, 2, 3, 2, 3, 4, 3, 4, 1, 4, 3, 4, 3, 2, 3, 2, 3, 4, 3, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 3, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 3, 4, 3, 2, 3, 2, 3, 4, 3, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
Julien Cassaigne, Juhani Karhumäki, Svetlana Puzynina, On k-abelian palindromes, Information and Computation, Volume 260, June 2018, Pages 89-98. See Lemma 1.
|
|
FORMULA
|
a(3*k) = a(3*k+2) = a(k).
a(3*k+1) == 1 + a(k) mod 4. (End)
|
|
MAPLE
|
A:= [1]:
for k from 1 to 5 do A:= subs([1=(1, 2, 1), 2=(2, 3, 2), 3=(3, 4, 3), 4=(4, 1, 4)], A);
od:
|
|
MATHEMATICA
|
SubstitutionSystem[{1 -> {1, 2, 1}, 2 -> {2, 3, 2}, 3 -> {3, 4, 3}, 4 -> {4, 1, 4}}, 1, 5] // Last (* Jean-François Alcover, Apr 06 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|