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

Links

Table of n, a(n) for n=1..120.

Formula

T(n,k) = A008683(A070216(n,k)).

T(n,1) = A124897(1); T(A049533(n),1) <> 0; T(A049532(n),1) = 0.

T(n,n) = -A000007(n-1).

A124896(n) = Sum_{k=1..n} abs(T(n,k)), row sums of absolute values.

Example

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

Mathematica

row[n_] := Table[MoebiusMu[n^2 + k^2], {k, 1, n}]; Array[row, 15] // Flatten (* Amiram Eldar, May 12 2025 *)

Prog

(PARI) row(n) = vector(n, k, moebius(n^2 + k^2)); \\ Amiram Eldar, May 12 2025

Crossrefs

Cf. A000007, A008683, A049532, A049533, A070216, A124897.

Sequence in context: A342991 A285898 A077049 * A089885 A190233 A143242

Adjacent sequences: A124892 A124893 A124894 * A124896 A124897 A124898

Keyword

sign,tabl,easy

Author

Reinhard Zumkeller, Nov 12 2006

Status

approved