cp's OEIS Frontend

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

%I A316558 #11 Jul 07 2018 01:48:46
%S A316558 1,85,17467988,2652709797555700,-31887567679999704368444416,
%T A316558 -19545503919145188068282045605299993931776,
%U A316558 4067279303127129300135103866787550140697786459885666304000,34322785008286059488919151392862698816528603867951539153613244229443277820002304000
%N A316558 Discriminant of characteristic polynomial of n X n matrix containing the first n^2 primes in increasing order.
%C A316558 a(n) is even for n >= 3.
%H A316558 Robert Israel, <a href="/A316558/b316558.txt">Table of n, a(n) for n = 1..25</a>
%p A316558 f:= n -> discrim(LinearAlgebra:-CharacteristicPolynomial(Matrix(n,n,[seq(ithprime(i),i=1..n^2)]),t),t):
%p A316558 map(f, [$1..20]);
%o A316558 (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 A316558 Cf. A067276.
%K A316558 sign
%O A316558 1,2
%A A316558 _Robert Israel_, Jul 06 2018