This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A071079 #16 Jun 27 2024 16:07:26
%S A071079 1,0,-4,24,-135,696,-3577,8738,-21120,7182,85995,307692,-4739379,
%T A071079 72588316,1042545852,13023653868,-40433805531,-160245671048,
%U A071079 2415459163787,80057252715814,-4733090488738644,277504161503477090,-7200884073495803561,97750528494490914120
%N A071079 Determinant of the n X n matrix whose element (i,j) equals the |i-j|-th prime or if i=j, 0.
%p A071079 a:= n-> LinearAlgebra[Determinant](Matrix(n,
%p A071079 (i, j)-> `if`(i=j, 0, ithprime(abs(i-j))))):
%p A071079 seq(a(n), n=0..24); # _Alois P. Heinz_, Jun 27 2024
%t A071079 f[n_] := Det[ Table[ If[ i == j, 0, Prime[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}]
%Y A071079 Cf. A071078, A071082, A071083.
%K A071079 sign
%O A071079 0,3
%A A071079 _Robert G. Wilson v_, May 26 2002
%E A071079 More terms from _Sean A. Irvine_, Jun 27 2024
%E A071079 a(0)=1 prepended by _Alois P. Heinz_, Jun 27 2024