This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A097964 Fractional Pisot with constant ration for (1/2,1/2) Bezier. 0
 2, 5, 7, 3, 5, 8, 2, 3, 6, 4, 7, 12, 6, 11, 17, 4, 8, 12, 10, 17, 27, 12, 21, 34, 9, 15, 24, 20, 34, 54, 25, 42, 68, 18, 30, 49, 40, 67, 108, 50, 85, 136, 36, 61, 97, 80, 135, 216, 101, 170, 271, 72, 121, 194, 160, 270, 430, 201, 339, 541, 144, 242, 387, 320, 538, 859, 402 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 LINKS FORMULA M=N[4^(1/3)*({{0, 1, 0}, {1, 1, 0}, {0, 0, 0}}/2+{{0, 1, 0}, {0, 0, 1}, {1, 1, 0}}/2)]; A[n_]:=M.A[n-1]; A[0]:={{0, 1, 1}, {1, 1, 2}, {1, 2, 3}}; MATHEMATICA (* Fractional Pisot 3 X 3 Markov sequence*) Clear[M, A, x] digits=21; M=N[4^(1/3)*({{0, 1, 0}, {1, 1, 0}, {0, 0, 0}}/2+{{0, 1, 0}, {0, 0, 1}, {1, 1, 0}}/2)]; Det[M] A[n_]:=M.A[n-1]; A[0]:={{0, 1, 1}, {1, 1, 2}, {1, 2, 3}}; (* flattened sequence of 3 X 3 matrices made with a Fractional Pisot recurrence*) b=Flatten[Table[M.A[n], {n, 1, digits}]] Floor[Abs[b]] Dimensions[b][[1]] ListPlot[b, PlotJoined->True] CROSSREFS Sequence in context: A088531 A286463 A286362 * A133133 A024710 A140264 Adjacent sequences:  A097961 A097962 A097963 * A097965 A097966 A097967 KEYWORD nonn,uned AUTHOR Roger L. Bagula, Sep 06 2004 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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.