This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A107336 222 Pisot cubic substitution with characteristic polynomial:x^3-2*x^2-2*x-2. 1
 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 2, 3, 3, 2, 1, 1, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 1, 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 1, 2, 3, 3, 2, 1, 3, 1, 1, 3, 1, 2, 3, 3, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS FORMULA 1->{1, 3, 2, 2, 3, 1}, 2->{3}, 3->{1} MATHEMATICA s[1] = {1, 2, 3, 3, 2, 1}; s[2] = {3}; s[3] = {1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[4] CROSSREFS Sequence in context: A176259 A132312 A090431 * A282013 A275299 A205100 Adjacent sequences:  A107333 A107334 A107335 * A107337 A107338 A107339 KEYWORD nonn,uned AUTHOR Roger L. Bagula, May 22 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 15 15:14 EDT 2019. Contains 328030 sequences. (Running on oeis4.)