%I #17 Dec 24 2022 05:04:29
%S -1,1,-1,2,-2,4,-4,7,-7,12,-12,22,-21,39,-39,68,-70,119,-127,210,-229,
%T 369,-413,649,-742,1143,-1334,2017,-2393,3561,-4289,6293,-7680,11129,
%U -13739,19696,-24559,34879,-43871,61801,-78324,109555,-139764,194291,-249295,344694,-444496,611723,-792285
%N A nonsense sequence.
%H G. C. Greubel, <a href="/A089075/b089075.txt">Table of n, a(n) for n = 1..1000</a>
%t (* k is a root of x^4 - x^3 - 1: *)
%t k=1.38027756909761411567330169182273187781662670155876302541177133121124957411;
%t q=k^2-k-1/k-1/k^2;
%t m0={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 1, 1, q}};
%t m[n_]=MatrixPower[m0, n];
%t Table[Floor[Re[m[n][[4, 4]]]], {n, 1, 1000}]
%Y Cf. A089074, A089076, A089077.
%K sign,easy,less
%O 1,4
%A _Roger L. Bagula_, Dec 04 2003
%E Edited by _G. C. Greubel_, Feb 19 2021