

A071078


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


0



1, 3, 8, 21, 45, 81, 504, 327, 95, 27, 3744, 514125, 42577129, 594343521, 6384803528, 55828902985, 222653960625, 24898185972135, 370012327363008, 5108693773098321, 66203904684406485
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

f[n_] := Det[ Table[ If[ i == j, 1, Prime[ Abs[i  j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 21}]


CROSSREFS

Sequence in context: A172243 A101332 A007773 * A179903 A193045 A238831
Adjacent sequences: A071075 A071076 A071077 * A071079 A071080 A071081


KEYWORD

sign


AUTHOR

Robert G. Wilson v, May 26 2002


STATUS

approved



