|
%I #7 Dec 26 2022 08:17:58
%S 1,1,-3,0,0,4,6,5,18,-23,-24,24,17,88,-7,145,5,-376,376,-236,654,-755,
%T 34,3025,-2992,2992,-5983,-720,-11279,-18015,48141,-112,112,-66268,
%U -95338,-85227,-294862,389049,381240,-381240,-302671,-1445240,69609,-2448591,110613,6162200,-6162200,3602996
%N A nonsense sequence.
%t m0 = Inverse[{{0, I}, {I, 1}}];
%t M[0] = {{0, -1}, {-1, -1}}.m0;
%t M[1] = {{1, 0}, {-1, -1}}.m0;
%t M[2] = {{-1, 0}, {-1, -1}}.m0;
%t M[3] = {{0, 1}, {-1, -1}}.m0;
%t M[4] = I*{{0, -1}, {-1, -1}}.m0;
%t M[5] = I*{{1, 0}, {-1, -1}}.m0;
%t M[6] = I*{{-1, 0}, {-1, -1}}.m0;
%t M[7] = I*{{0, 1}, {-1, -1}}.m0;
%t v[0] = {1, 1};
%t v[n_] := v[n] = M[Mod[n, 7]].v[n - 1];
%t ar = Table[Re[v[n][[1]]], {n, 0, 50}]
%K uned,obsc,less,sign
%O 1,3
%A _Roger L. Bagula_, Oct 13 2008
|
