OFFSET
1,3
MATHEMATICA
f[n_] := Det[ Table[ EulerPhi[ Abs[i - j]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 22}]
CROSSREFS
KEYWORD
sign
AUTHOR
Robert G. Wilson v, May 26 2002
EXTENSIONS
More terms from Sean A. Irvine, Jun 27 2024
STATUS
approved