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,1

Links

Table of n, a(n) for n=1..15.

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}]

Crossrefs

Cf. A083140.

Sequence in context: A152617 A156472 A108640 * A224883 A001577 A156503

Adjacent sequences: A084968 A084969 A084970 * A084972 A084973 A084974

Keyword

sign

Author

Robert G. Wilson v, Jun 15 2003

Status

approved