|
|
A142711
|
|
A determinant sequence: M={{a(-1 + n), a(-2 + n), a(-3 + n)}, {a(-2 + n), a(-3 + n), a(-4 + n)}, {a(-3 + n), a(-4 + n), a(-5 + n)}} a(n)=Det[M].
|
|
0
|
|
|
1, 2, 3, 5, 7, 1, -12, -228, 9143, -1133843, 400077995, -45302489148575, -7894734009904518933828, -18747504667646398964781036890058108, -959911201550764602188142115589327060336513904282657913
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
M={{a(-1 + n), a(-2 + n), a(-3 + n)}, {a(-2 + n), a(-3 + n), a(-4 + n)}, {a(-3 + n), a(-4 + n), a(-5 + n)}} a(n)=Det[M].
|
|
MATHEMATICA
|
Clear[a, n, m, k]; M = Table[Table[a[n - m - k - 1], {m, 0, 2}], {k, 0, 2}]; b = Det[M]; Table[a[i] = If[i == 0, 1, Prime[i]], {i, 0, 4}]; a[n_] := a[n] = b; Table[a[n], {n, 0, 15}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
uned,sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|