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,2

Comments

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

Links

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

Maple

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

Prog

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

Crossrefs

Cf. A067276.

Sequence in context: A172826 A196886 A172874 * A172909 A214375 A045916

Adjacent sequences: A316555 A316556 A316557 * A316559 A316560 A316561

Keyword

sign

Author

Robert Israel, Jul 06 2018

Status

approved