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.

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

Alois P. Heinz, Table of n, a(n) for n = 0..500

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

Adjacent sequences: A071082 A071083 A071084 * A071086 A071087 A071088

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