login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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