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