cp's OEIS Frontend

A054524 Triangle T(n,k): T(n,k) = mu(k) if k divides n, T(n,k)=0 otherwise (n >= 1, 1<=k<=n).

%I A054524 #12 Mar 29 2023 17:39:33
%S A054524 1,1,-1,1,0,-1,1,-1,0,0,1,0,0,0,-1,1,-1,-1,0,0,1,1,0,0,0,0,0,-1,1,-1,
%T A054524 0,0,0,0,0,0,1,0,-1,0,0,0,0,0,0,1,-1,0,0,-1,0,0,0,0,1,1,0,0,0,0,0,0,0,
%U A054524 0,0,-1,1,-1,-1,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,-1,1,-1
%N A054524 Triangle T(n,k): T(n,k) = mu(k) if k divides n, T(n,k)=0 otherwise (n >= 1, 1<=k<=n).
%F A054524 A054524 = A051731 * A128407 - _Gary W. Adamson_, Mar 02 2007
%t A054524 Clear[t]; t[n_, 1] = 1; t[n_, k_] := t[n, k] = If[k == 1, 1, If[n == k, -Sum[t[n, k - i], {i, 1, k - 1}], If[n > k, t[n - k, k], 0]]]; Flatten[Table[t[n, k], {n, 13}, {k, n}]] (* Mats Granvik, Feb 12 2012 *)
%t A054524 Table[If[Mod[n,k]==0,MoebiusMu[k],0],{n,20},{k,n}]//Flatten (* _Harvey P. Dale_, Mar 29 2023 *)
%Y A054524 Cf. A054521.
%Y A054524 Cf. A051731, A128407.
%K A054524 sign,tabl
%O A054524 1,1
%A A054524 _N. J. A. Sloane_, Apr 09 2000