A106798 -id:A106798 - cp's OEIS frontend

A106795 Fixed point of the morphism 1 -> 1,1,1,1,1,1,2,2,2,3; 2 -> 2,2,3,1,1,1,1; 3 -> 3,1,1,1,2,2, starting with a(0) = 1.

1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2

Offset: 0

Roger L. Bagula, May 17 2005

nonn

3-symbol substitution for the characteristic polynomial: x^3 + 9*x^2 - 3*x - 1.

			The first few steps of the substitution are:
Start: 1
Maps:
  1 --> 1 1 1 1 1 1 2 2 2 3
  2 --> 2 2 3 1 1 1 1
  3 --> 3 1 1 1 2 2
-------------
0:   (#=1)
  1
1:   (#=10)
  1111112223

G. C. Greubel, Table of n, a(n) for n = 0..10000
Victor F. Sirvent and Boris Solomyak, Pure Discrete Spectrum for One-dimensional Substitution Systems of Pisot Type. Canadian Mathematical Bulletin, 45(4), 2002, 697-710; (page 708 example 3). Also at ResearchGate
Index entries for sequences that are fixed points of mappings

Cf. A106749, A106796, A106797, A106798.

s[1]= {1,1,1,1,1,1,2,2,2,3}; s[2]= {2,2,3,1,1,1,1}; s[3]= {3,1,1,1,2,2};
t[a_]:= Flatten[s /@ a]; p[0]= {1}; p[1]= t[p[0]]; p[n_]:= t[p[n-1]]; p[3]

Edited by G. C. Greubel, Apr 03 2022

A106796 Fixed point of the morphism 1 -> 1,1,2; 2 -> 3; 3 -> 1,4; 4 -> 1, starting with a(0) = 1.

Original entry on oeis.org

1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 3, 1, 4, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 3, 1, 4, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 3, 1, 4, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 3, 1, 4, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 1, 2, 3, 1, 4, 1, 1, 2, 1, 1, 2, 3

Offset: 0

Roger L. Bagula, May 17 2005

nonn

4-symbol substitution for the Pisot characteristic polynomial: x^4 - 2*x^2 - x - 1.

			The first few steps of the substitution are:
Start: 1
Maps:
  1 --> 1 1 2
  2 --> 3
  3 --> 1 4
  4 --> 1
-------------
0:   (#=1)
  1
1:   (#=3)
  112
2:   (#=7)
  1121123
3:   (#=16)
  1121123112112314
4:   (#=36)
  112112311211231411211231121123141121
5:   (#=82)
  1121123112112314112112311211231411211121123112112314112112311211231411211121123112

G. C. Greubel, Table of n, a(n) for n = 0..10000
Victor F. Sirvent and Boris Solomyak, Pure Discrete Spectrum for One-dimensional Substitution Systems of Pisot Type. Canadian Mathematical Bulletin, 45(4), 2002, 697-710; (page 709 example 3). Also at ResearchGate
Index entries for sequences that are fixed points of mappings

Cf. A106749, A106795, A106797, A106798.

s[1]= {1, 1, 2}; s[2]= {3}; s[3]= {1, 4}; s[4]= {1}; t[b_]:= Flatten[s /@ b];
a[0]= {1}; a[1]= t[p[0]]; a[n_]:= t[a[n-1]];
a[10]

Edited by G. C. Greubel, Apr 03 2022

A106797 Fixed point of the morphism 1 -> 1,1,1,1,2,2,3; 2 -> 4,1; 3 -> 2,1,1,1; 4 -> 1,2,1 starting with a(0) = 1.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 4, 1, 4, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 4, 1, 4, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 2, 3, 4, 1, 4, 1, 2

Offset: 0

Roger L. Bagula, May 17 2005

nonn

4-symbol substitution of the Pisot characteristic polynomial: x^4 - 4*x^3 - 6*x^2 - x - 1.

			The first few steps of the substitution are:
Start: 1
Maps:
  1 --> 1 1 1 1 2 2 3
  2 --> 4 1
  3 --> 2 1 1 1
  4 --> 1 2 1
-------------
0:   (#=1)
  1
1:   (#=7)
  1111223
2:   (#=36)
  111122311112231111223111122341412111

G. C. Greubel, Table of n, a(n) for n = 0..10000
Victor F. Sirvent and Boris Solomyak, Pure Discrete Spectrum for One-dimensional Substitution Systems of Pisot Type. Canadian Mathematical Bulletin, 45(4), 2002, 697-710; (page 709 example 4). Also at ResearchGate
Index entries for sequences that are fixed points of mappings

Cf. A106749, A106795, A106796, A106798.

s[1]= {1,1,1,1,2,2,3}; s[2]= {4,1}; s[3]= {2,1,1,1}; s[4]= {1,2,1};
t[a_]:= Flatten[s /@ a]; p[0]= {1}; p[1]= t[p[0]]; p[n_]:= t[p[n-1]]; p[3]

Edited by G. C. Greubel, Apr 03 2022

cp's OEIS Frontend

A106795 Fixed point of the morphism 1 -> 1,1,1,1,1,1,2,2,2,3; 2 -> 2,2,3,1,1,1,1; 3 -> 3,1,1,1,2,2, starting with a(0) = 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A106796 Fixed point of the morphism 1 -> 1,1,2; 2 -> 3; 3 -> 1,4; 4 -> 1, starting with a(0) = 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A106797 Fixed point of the morphism 1 -> 1,1,1,1,2,2,3; 2 -> 4,1; 3 -> 2,1,1,1; 4 -> 1,2,1 starting with a(0) = 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions