A071082 - OEIS

A071082

Determinant of the n X n matrix whose element (i,j) equals the (i-j)-th composite number, (j-i)-th prime number, or 1 if i=j.

%I #12 Jun 27 2024 01:37:53

%S 1,-7,39,-231,1175,-6404,34516,-194372,914065,-4380707,19511875,

%T -48269825,364029100,-2195115952,13627012744,-115725814173,

%U 792363218461,-5961225064275,50261904138348,-425928565835370,3704468293623774,-34926740161083290,389473974875205556

%N Determinant of the n X n matrix whose element (i,j) equals the (i-j)-th composite number, (j-i)-th prime number, or 1 if i=j.

%t Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; f[n_] := Det[ Table[ If[i == j, 1, If[i > j, Composite[i - j], Prime[j - i]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}]

%Y Cf. A071078, A071079.

%K sign

%O 1,2

%A _Robert G. Wilson v_, May 26 2002

%E More terms from _Sean A. Irvine_, Jun 27 2024