login
A nonsense sequence.
0

%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