|
%I #7 Dec 27 2022 02:18:02
%S 0,-1,0,3,-3,2,-5,6,0,-24,23,-23,47,7,88,143,-376,-5,5,514,755,654,
%T 2304,-2992,-3025,3025,2271,11279,-720,18847,-112,-48141,48141,-29182,
%U 85227,-95338,8960,381240,-389049,389049,-761329,-69609,-1445240,-2268369,6162200,-110613,110613,-8541182,-12033565
%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}];
%t ai = Table[Im[v[n][[1]]], {n, 0, 50}]
%K uned,sign,less
%O 1,4
%A _Roger L. Bagula_, Oct 13 2008
|
