login
A071085
Determinant of the n X n matrix whose element (i,j) equals mu(|i-j|) where mu(k) is the moebius function for k > 0 and mu(0) = 0.
2
1, 0, -1, -2, 5, -8, -16, -32, -48, -64, -80, 224, -368, 312, -205, -2850, 5905, 1817592, -4329936, -2004480, -442800, 20967000, -349316425, 1853293420, -6937330896, 24280673168, -18727955840, -31062538500, -42332130415, 2736294281648, -27940194392976
OFFSET
0,4
LINKS
MAPLE
a:= n-> LinearAlgebra[Determinant](Matrix(n, (i, j)->
`if`(i=j, 0, numtheory[mobius](abs(i-j))))):
seq(a(n), n=0..35); # Alois P. Heinz, Jan 28 2021
MATHEMATICA
f[n_] := Det[ Table[ MoebiusMu[ Abs[i - j]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 27}]
CROSSREFS
Cf. A008683.
Sequence in context: A048237 A048139 A357239 * A240951 A280373 A324612
KEYWORD
sign
AUTHOR
Robert G. Wilson v, May 26 2002
EXTENSIONS
a(0)=1 prepended by and more terms from Alois P. Heinz, Jan 28 2021
STATUS
approved