A084971 Determinant of the leading n X n submatrix of A083140.

2, 6, -60, 1680, 0, 0, -261381120, 101807946240, 11565134380800, -5051536473984000, 1677391670412057600, -123625460444389263360, -78207720091833771479040, 16848446417200616007229440, -2300367963201102480473948160

Offset: 1

Author

Robert G. Wilson v, Jun 15 2003

Keywords

• sign

Crossrefs

Cf. A083140.

Programs

Mathematica

d[n_] := Block[{k = n}, Det[ Join[ {Table[2i, {i, 1, k}]}, Table[ Take[ Prime[j]*Select[ Range[1000], GCD[ Prime[k] #, Product[ Prime[i], {i, 1, j - 1}]] == 1 &], k], {j, 2, k}]]]]; Table[ d[n], {n, 1, 15}]