A124895 Triangle read by rows, 1 <= k <= n: T(n,k) = mu(n^2 + k^2) with mu = A008683.
-1, -1, 0, 1, -1, 0, -1, 0, 0, 0, 1, -1, 1, -1, 0, -1, 0, 0, 0, -1, 0, 0, -1, 1, 1, 1, 1, 0, 1, 0, -1, 0, -1, 0, -1, 0, 1, 1, 0, -1, 1, 0, -1, 1, 0, -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, 1, 0, -1, -1, 1, -1, -1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, -1, 0, 0, 0, 1, 0, -1, -1, 1, 1, 1, 1, 1, -1, 0, -1, -1, -1, 0, -1, 0, 1, 0, 1, 0, 0, 0, -1, 0, -1, 0, 1, 0, 1, -1, 0, -1, 0, 0, 1, 0, 0, 0, 1, 0, 1, -1, 0
Offset: 1
Examples
Triangle begins: -1 -1, 0 1, -1, 0 -1, 0, 0, 0 1, -1, 1, -1, 0 -1, 0, 0, 0, -1, 0 0, -1, 1, 1, 1, 1, 0 1, 0, -1, 0, -1, 0, -1, 0 1, 1, 0, -1, 1, 0, -1, 1, 0 -1, 0, -1, 0, 0, 0, -1, 0, -1, 0
Programs
-
Mathematica
row[n_] := Table[MoebiusMu[n^2 + k^2], {k, 1, n}]; Array[row, 15] // Flatten (* Amiram Eldar, May 12 2025 *) -
PARI
row(n) = vector(n, k, moebius(n^2 + k^2)); \\ Amiram Eldar, May 12 2025