|
|
A070323
|
|
Let M_n be the n X n matrix m(i,j) = min(prime(i), prime(j)); then a(n) = det(M_n).
|
|
0
|
|
|
2, 2, 4, 8, 32, 64, 256, 512, 2048, 12288, 24576, 147456, 589824, 1179648, 4718592, 28311552, 169869312, 339738624, 2038431744, 8153726976, 16307453952, 97844723712, 391378894848, 2348273369088, 18786186952704, 75144747810816
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If A_n is the n X n matrix a(i,j) = Max(prime(i), prime(j)) then det(A_n)/det(M_n) = prime(n)/2.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 2*A037169(n)/prime(n) for n > 1.
|
|
MATHEMATICA
|
a[n_] := 2*Product[Differences[Prime[Range[100]]][[i]], {i, 1, n - 1}] *Luca Onnis, Aug 13 2022*
|
|
PROG
|
(PARI) a(n) = matdet(matrix(n, n, i, j, min(prime(i), prime(j)))); \\ Michel Marcus, Aug 13 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|