OFFSET
0,3
LINKS
Wikipedia, Toeplitz Matrix.
EXAMPLE
a(5) = 1608:
[1, 7, 2, 3, 5]
[7, 1, 7, 2, 3]
[2, 7, 1, 7, 2]
[3, 2, 7, 1, 7]
[5, 3, 2, 7, 1]
MATHEMATICA
a[n_]:=Max[Table[Det[ToeplitzMatrix[Join[{1}, Part[Permutations[Prime[Range[n-1]]], i]]]], {i, (n-1)!}]]; Join[{1}, Array[a, 10]]
CROSSREFS
KEYWORD
sign,hard,more
AUTHOR
Stefano Spezia, Jul 05 2024
STATUS
approved