OFFSET
0,3
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}]
CROSSREFS
KEYWORD
sign
AUTHOR
Robert G. Wilson v, May 26 2002
EXTENSIONS
More terms from Sean A. Irvine, Jun 27 2024
a(0)=1 prepended by Alois P. Heinz, Jun 27 2024
STATUS
approved