|
|
A143050
|
|
A nonsense sequence.
|
|
0
|
|
|
0, -1, 0, 3, -3, 2, -5, 6, 0, -24, 23, -23, 47, 7, 88, 143, -376, -5, 5, 514, 755, 654, 2304, -2992, -3025, 3025, 2271, 11279, -720, 18847, -112, -48141, 48141, -29182, 85227, -95338, 8960, 381240, -389049, 389049, -761329, -69609, -1445240, -2268369, 6162200, -110613, 110613, -8541182, -12033565
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
m0 = Inverse[{{0, I}, {I, 1}}];
M[0] = {{0, -1}, {-1, -1}}.m0;
M[1] = {{1, 0}, {-1, -1}}.m0;
M[2] = {{-1, 0}, {-1, -1}}.m0;
M[3] = {{0, 1}, {-1, -1}}.m0;
M[4] = I*{{0, -1}, {-1, -1}}.m0;
M[5] = I*{{1, 0}, {-1, -1}}.m0;
M[6] = I*{{-1, 0}, {-1, -1}}.m0;
M[7] = I*{{0, 1}, {-1, -1}}.m0;
v[0] = {1, 1};
v[n_] := v[n] = M[Mod[n, 7]].v[n - 1];
ar = Table[Re[v[n][[1]]], {n, 0, 50}];
ai = Table[Im[v[n][[1]]], {n, 0, 50}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
uned,sign,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|