A071083 Determinant of the n X n matrix whose element (i,j) equals phi(|i-j|).
0, -1, 2, -4, 6, -5, -84, 245, 924, -8816, -78556, -58667, 6779732, 10484275, -363899598, -6434306752, -13046891490, 20608641823, 1894093427008, -6177545952015, 18227184915788, -46023445768832, -8765268354146700, -1210879926442292743, -149657142827643535248
Offset: 1
Keywords
Programs
-
Mathematica
f[n_] := Det[ Table[ EulerPhi[ Abs[i - j]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 22}]
Extensions
More terms from Sean A. Irvine, Jun 27 2024