%I #16 Jun 27 2024 18:24:07
%S 1,1,-3,8,-21,45,-81,-504,-327,-95,-27,3744,-514125,42577129,
%T -594343521,6384803528,55828902985,222653960625,-24898185972135,
%U 370012327363008,-5108693773098321,66203904684406485,-696661740301346521,5010137735370840432,-22341106332701627463
%N Determinant of the n X n matrix whose element (i,j) equals the |i-j|-th prime or if i=j, 1.
%t f[n_] := Det[ Table[ If[ i == j, 1, Prime[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 21}]
%Y Cf. A071079, A071082, A071083.
%K sign
%O 0,3
%A _Robert G. Wilson v_, May 26 2002
%E More terms from _Sean A. Irvine_, Jun 27 2024
%E a(0)=1 prepended by _Alois P. Heinz_, Jun 27 2024