A316558 - OEIS

A316558

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

%I #11 Jul 07 2018 01:48:46

%S 1,85,17467988,2652709797555700,-31887567679999704368444416,

%T -19545503919145188068282045605299993931776,

%U 4067279303127129300135103866787550140697786459885666304000,34322785008286059488919151392862698816528603867951539153613244229443277820002304000

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

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

%H Robert Israel, <a href="/A316558/b316558.txt">Table of n, a(n) for n = 1..25</a>

%p f:= n -> discrim(LinearAlgebra:-CharacteristicPolynomial(Matrix(n,n,[seq(ithprime(i),i=1..n^2)]),t),t):

%p map(f, [$1..20]);

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

%Y Cf. A067276.

%K sign

%O 1,2

%A _Robert Israel_, Jul 06 2018