The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A142713

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A determinant sequence: M={{a(-1 + n), a(-2 + n), a(-3 + n), a(-4 + n)}, {a(-2 + n), a(-3 + n), a(-4 + n), a(-5 + n)}, {a(-3 + n), a(-4 + n), a(-5 + n), a(-6 + n)}, {a(-4 + n), a(-5 + n), a(-6 + n), a(-7 + n)}}; a(n)=Det[M].
(history; published version)

#3 by Charles R Greathouse IV at Fri Oct 12 14:54:52 EDT 2012

AUTHOR

_Roger L. Bagula _ and _Gary W. Adamson (rlbagulatftn(AT)yahoo.com), _, Sep 25 2008

Discussion

Fri Oct 12

14:54

OEIS Server: https://oeis.org/edit/global/1840

#2 by N. J. A. Sloane at Tue Jun 01 03:00:00 EDT 2010

KEYWORD

nonn,uned,newsign

#1 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009

NAME

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

DATA

1, 2, 3, 5, 7, 11, 13, -2, 38, 2728, -443641, 1935029933, -1006469613597229, 314740206896238505761377, -4106778990409111362977439949403921647, -99836159842345073697494052403203681150224535412233647440794

OFFSET

1,2

FORMULA

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

MATHEMATICA

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

KEYWORD

nonn,uned

AUTHOR

Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 25 2008

STATUS

approved