cp's OEIS Frontend

A118875 Determinant of n-th continuous block of 9 consecutive squares of primes.

%I A118875 #17 Jan 25 2021 08:59:50
%S A118875 -213720,114432,-548352,892800,-1774080,-7289856,10105344,-79557120,
%T A118875 -97790976,171740160,147556224,56531520,-380053440,122206464,
%U A118875 -164292480,-958000320,394761600,189907200,1139760000,-3023127360,-1495428480,-4260988800,-14501393280,7022695680
%N A118875 Determinant of n-th continuous block of 9 consecutive squares of primes.
%C A118875 Quadratic analog of A117330 Determinants of 3 X 3 matrices of continuous blocks of 9 consecutive primes. See also: A001248 Squares of primes. The terminology "continuous" is used to distinguish from "discrete" which would be block 1: 4, 9, 25, 49, 121, 169, 289, 361, 529; block 2: 841, 961, 1369, 1681, 1849, 2209, 2809, 3481, 3721; and so forth.
%e A118875 a(1) = -213720 =
%e A118875   |  4    9   25|
%e A118875   | 49  121  169|
%e A118875   |289  361  529|.
%e A118875 a(2) =
%e A118875   |   9  25  49|
%e A118875   | 121 169 289|
%e A118875   | 361 529 841|.
%p A118875 a:= n-> LinearAlgebra[Determinant](Matrix(3, (i,j)-> ithprime(n+3*i-4+j)^2)):
%p A118875 seq(a(n), n=1..25);  # _Alois P. Heinz_, Jan 25 2021
%t A118875 m = 24; p = Prime[Range[m + 8]]^2; Table[Det @ Partition[p[[n ;; n + 8]], 3], {n, 1, m}] (* _Amiram Eldar_, Jan 25 2021 *)
%o A118875 (PARI) a(n) = matdet(matrix(3, 3, i, j, prime((n+j-1)+3*(i-1))^2)); \\ _Michel Marcus_, Jan 25 2021
%Y A118875 Cf. A000040, A001248, A117301, A117330.
%K A118875 easy,sign
%O A118875 1,1
%A A118875 _Jonathan Vos Post_, May 24 2006
%E A118875 Wrong Formula and data corrected by _Michel Marcus_, Jan 25 2021