_Roger L. Bagula_, Apr 09 2005

_Roger Bagula (rlbagulatftn(AT)yahoo.com), _, Apr 09 2005

Edited by _N. J. A. Sloane (njas(AT)research.att.com), _, Jun 16 2007

nonn,tabf,new

Edited by N. J. A. Sloane (njas, (AT)research.att.com), Jun 16 2007

A ten-symbol substitution Triangle read by rows, based on a bi-Kenyon like sign symmetry substitution for the Pisot-Vijayaraghavan constantmorphism f: x^51->2, 2-x^>3, 3-x>4, 4->5, 5->{5,9,7,6}, 6->7, 7->8, 8->9, 9->10, 10->{10,4,2,1}. First row is 1==0. If current row is a,b,c,..., then the next row is a,b,c,...,f(a),f(b),f(c),...

A ten-symbol substitution based on a bi-Kenyon -like sign symmetry substitution for the Pisot-Vijayaraghavan constant: x^5-x^3-x-1=0.

Cf. A105061, A000120, A073058, A105143.

nonn,tabf,new

Edited by njas, Jun 16 2007

A ten-symbol substitution based on a bi-Kenyon like sign symmetry substitution for the Pisot-Vijayaraghavan constant: x^5-x^3-x-1==0.

1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 5, 9, 7, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 5, 9, 7, 6, 2, 3, 3, 4

0,3

A ten-symbol substitution based on a bi-Kenyon like sign symmetry substitution for the Pisot-Vijayaraghavan constant: x^5-x^3-x-1=0.

s[n_] := n /. {1 -> 2, 2 -> 3, 3 -> 4, 4 -> 5, 5 -> {5, 9, 7, 6}, 6 -> 7, 7 -> 8, 8 -> 9, 9 -> 10, 10 -> {10, 4, 2, 1}}; t[a_] := Join[a, Flatten[s /@ a]]; Flatten[ NestList[t, {1}, 6]]

Cf. A105061, A000120, A073058, A105143.

nonn,tabf

Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 09 2005

approved