cp's OEIS Frontend

A118799 Determinants of 4 X 4 matrices of 16 consecutive primes.

%I A118799 #21 Jan 25 2021 04:26:27
%S A118799 880,-448,-1472,-240,2480,-1352,-4128,-96,2736,-2520,120,1080,4288,
%T A118799 4880,4600,13368,7056,14560,2960,13320,0,24864,-11096,-24264,0,-9168,
%U A118799 -2128,-15792,0,18120,-5248,6384,-21840,-38776,-20480,20176,-72896,-69200,40080,-37632
%N A118799 Determinants of 4 X 4 matrices of 16 consecutive primes.
%C A118799 4 X 4 analog of A117330.
%C A118799 All terms are even. - _Harvey P. Dale_, May 05 2016
%H A118799 Harvey P. Dale, <a href="/A118799/b118799.txt">Table of n, a(n) for n = 1..1000</a>
%e A118799 a(1) = 880 =
%e A118799   | 2  3  5  7|
%e A118799   |11 13 17 19|
%e A118799   |23 29 31 37|
%e A118799   |41 43 47 53|.
%e A118799 a(10) = -2520 =
%e A118799   |29 31 37 41|
%e A118799   |43 47 53 59|
%e A118799   |61 67 71 73|
%e A118799   |79 83 89 97|.
%e A118799 a(21) = 0 =
%e A118799   | 73  79  83  89|
%e A118799   | 97 101 103 107|
%e A118799   |109 113 127 131|
%e A118799   |137 139 149 151|.
%p A118799 A118799 := proc(n)
%p A118799     local A,i,r,c ;
%p A118799     A := Matrix(4,4) ;
%p A118799     i := n ;
%p A118799     for r from 1 to 4 do
%p A118799     for c from 1 to 4 do
%p A118799         A[r,c] := ithprime(i) ;
%p A118799         i := i+1 ;
%p A118799     end do:
%p A118799     end do:
%p A118799     LinearAlgebra[Determinant](A) ;
%p A118799 end proc: # _R. J. Mathar_, May 05 2013
%t A118799 Module[{nn=60,prs},prs=Prime[Range[nn]];Table[Det[Partition[ Take[ prs, {n,n+15}],4]],{n,nn-15}]] (* _Harvey P. Dale_, Apr 29 2016 *)
%o A118799 (PARI) a(n) = matdet(matrix(4,4,i,j,prime((n+j-1)+4*(i-1)))); \\ _Michel Marcus_, Jan 25 2021
%Y A118799 Cf. A000040, A067276, A117301, A117330 , A118713.
%K A118799 easy,sign
%O A118799 1,1
%A A118799 _Jonathan Vos Post_, May 23 2006