A142714 A determinant sequence: M={{a(-1 + n), a(-2 + n)}, {a(-2 + n), a(-3 + n)}}; a(n)=Det[M].

1, 2, 3, -1, -11, -34, -87, -199, -803, 30260, -6666549, 4437571247, 89838030364819, -618601670062754874640, -2753159856116491857977786378841, -247721126779198534020836382643398254287524379

Offset

1,2

Links

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

Formula

M={{a(-1 + n), a(-2 + n)}, {a(-2 + n), a(-3 + n)}}; a(n)=Det[M].

Mathematica

Clear[a, n, m, k] M = Table[Table[a[n - m - k - 1], {m, 0, 1}], {k, 0, 1}]; b = Det[M]; Table[a[i] = If[i == 0, 1, Prime[i]], {i, 0, 2}]; a[n_] := a[n] = b; Table[a[n], {n, 0, 15}]

Crossrefs

Sequence in context: A368272 A129969 A104379 * A276012 A176701 A107415

Adjacent sequences: A142711 A142712 A142713 * A142715 A142716 A142717

Keyword

uned,sign

Author

Roger L. Bagula and Gary W. Adamson, Sep 25 2008

Status

approved