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