A071078 Determinant of the n X n matrix whose element (i,j) equals the |i-j|-th prime or if i=j, 1.

1, 1, -3, 8, -21, 45, -81, -504, -327, -95, -27, 3744, -514125, 42577129, -594343521, 6384803528, 55828902985, 222653960625, -24898185972135, 370012327363008, -5108693773098321, 66203904684406485, -696661740301346521, 5010137735370840432, -22341106332701627463

Offset: 0

Author

Robert G. Wilson v, May 26 2002

Keywords

• sign

Crossrefs

Cf. A071079, A071082, A071083.

Programs

Mathematica

f[n_] := Det[ Table[ If[ i == j, 1, Prime[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 21}]

Extensions

More terms from Sean A. Irvine, Jun 27 2024

a(0)=1 prepended by Alois P. Heinz, Jun 27 2024