|
|
A071080
|
|
Determinant of the n X n matrix whose element (i,j) equals the |i-j|-th composite number, or 1 if i=j.
|
|
0
|
|
|
1, -15, 125, -935, 6096, -38340, 240864, -1497584, 8611328, -49201152, 277473280, -1541996288, 7852493824, -39972516864, 195624648704, -789661486080, 3052709008384, -9659706075392, 30089357409792, -63825905935360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; f[n_] := Det[ Table[ If[i == j, 1, Composite[ Abs[i - j]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|