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
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