|
Search: id:A089075
|
|
|
| A089075 |
|
A theta1 minimal Pisot type valued matrix 4 X 4 4-Bonacci matrix from a root of polynomial of: x^4-x^3-1=0. |
|
+0
1
|
|
| -1, 1, -1, 2, -2, 4, -4, 7, -7, 12, -12, 22, -21, 39, -39, 68, -70, 119, -127, 210, -229, 369, -413, 649, -742, 1143, -1334, 2017, -2393, 3561, -4289, 6293, -7680, 11129, -13739, 19696, -24559, 34879, -43871, 61801, -78324, 109555, -139764, 194291, -249295, 344694, -444496, 611723, -792285
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
FORMULA
|
q=-0.724491959000516 m0={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 1, 1, q}} a(n) = [Floor[Re[MatrixPower[m0, n][[4, 4]]]]
|
|
MATHEMATICA
|
digits=100 NSolve[x^4-x^3-1==0, x] k=1.38027756909761411 q=k^2-k-1/k-1/k^2 m0={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 1, 1, q}} m[n_]=MatrixPower[m0, n] a=Table[Floor[Re[m[n][[4, 4]]]], {n, 1, digits}]
|
|
CROSSREFS
|
Adjacent sequences: A089072 A089073 A089074 this_sequence A089076 A089077 A089078
Sequence in context: A062896 A025065 A131524 this_sequence A011142 A060029 A100471
|
|
KEYWORD
|
sign,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 04 2003
|
|
|
Search completed in 0.004 seconds
|
