A123186 This sequence needs a meaningful name.

1, 1, 1, -2, -2, -2, 0, 0, 0, -8, -8, -8, 1112, 1112, 1112, -16336, -16336, -16336, 29760, 29760, 29760, 108608, 108608, 108608, 112587520, 112587520, 112587520, -3584451200, -3584451200, -3584451200, 17790850560, 17790850560, 17790850560, 208254684160, 208254684160

Offset

1,4

Links

Table of n, a(n) for n=1..35.

Mathematica

M1 = {{-n, 1, 0}, {0, 1, 0}, {0, 0, 1}};
M2 = {{1, 0, 0}, {n, -n, 1}, {0, 0, 1}};
M3 = {{1, 0, 0}, {0, 1, 0}, {0, n, -n}};
M[n_] := If[Mod[n, 3] == 1, M1, If[Mod[n, 3] == 2, M2, M3]]
v[1] = {1, 0, 0}
v[n_] := v[n] = M[n].v[n - 1]
a1 = Table[v[n][[1]], {n, 1, 50}]

Crossrefs

Sequence in context: A039967 A258133 A327152 * A127323 A327298 A132896

Adjacent sequences: A123183 A123184 A123185 * A123187 A123188 A123189

Keyword

uned,sign,easy,less

Author

Roger L. Bagula and Gary W. Adamson, Oct 03 2006

Status

approved