OFFSET
1,2
MATHEMATICA
Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; f[n_] := Det[ Table[ If[i == j, 1, Composite[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}]
CROSSREFS
KEYWORD
sign
AUTHOR
Robert G. Wilson v, May 26 2002
EXTENSIONS
a(21)-a(23) from Stefano Spezia, Jun 27 2024
STATUS
approved