|
|
A089075
|
|
A nonsense sequence.
|
|
3
|
|
|
-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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
(* k is a root of x^4 - x^3 - 1: *)
k=1.38027756909761411567330169182273187781662670155876302541177133121124957411;
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];
Table[Floor[Re[m[n][[4, 4]]]], {n, 1, 1000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|