A316558 Discriminant of characteristic polynomial of n X n matrix containing the first n^2 primes in increasing order.

1, 85, 17467988, 2652709797555700, -31887567679999704368444416, -19545503919145188068282045605299993931776, 4067279303127129300135103866787550140697786459885666304000, 34322785008286059488919151392862698816528603867951539153613244229443277820002304000

Offset: 1

Author

Robert Israel, Jul 06 2018

Keywords

• sign

Comments

a(n) is even for n >= 3.

Links

• Robert Israel, Table of n, a(n) for n = 1..25

Crossrefs

Cf. A067276.

Programs

Maple

f:= n -> discrim(LinearAlgebra:-CharacteristicPolynomial(Matrix(n,n,[seq(ithprime(i),i=1..n^2)]),t),t):
map(f, [$1..20]);

PARI

a(n) = my(k = 0, m = matrix(n, n, x, y, prime(k=k+1))); poldisc(charpoly(m)); \\ Michel Marcus, Jul 07 2018