This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A084971 Determinant of the leading n X n submatrix of A083140. 1
 2, 6, -60, 1680, 0, 0, -261381120, 101807946240, 11565134380800, -5051536473984000, 1677391670412057600, -123625460444389263360, -78207720091833771479040, 16848446417200616007229440, -2300367963201102480473948160 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 25 21:06 EDT 2019. Contains 322461 sequences. (Running on oeis4.)