OFFSET
0,3
LINKS
Wikipedia, Toeplitz Matrix.
FORMULA
a(n) <= A000142(n).
MATHEMATICA
a[n_] := CountDistinct[Table[Det[ToeplitzMatrix[Part[Permutations[Prime[Range[n]]], i]]], {i, n !}]]; Join[{1}, Array[a, 9]]
PROG
(Python)
from itertools import permutations
from sympy import primerange, prime, Matrix
def A369832(n): return len({Matrix([p[i:0:-1]+p[:n-i] for i in range(n)]).det() for p in permutations(primerange(prime(n)+1))}) if n else 1 # Chai Wah Wu, Feb 11 2024
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Stefano Spezia, Feb 03 2024
STATUS
approved