|
| |
|
|
A054524
|
|
Triangle T(n,k): T(n,k) = mu(k) if k divides n, T(n,k)=0 otherwise (n >= 1, 1<=k<=n).
|
|
8
| |
|
|
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, 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, 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
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| A054524 = A051731 * A128407 - Gary W. Adamson (qntmpkt(AT)yahoo.com), Mar 02 2007
|
|
|
MATHEMATICA
| 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 *)
|
|
|
CROSSREFS
| Cf. A054521.
Cf. A051731, A128407.
Sequence in context: A070909 A115954 A115526 * A110471 A174854 A103994
Adjacent sequences: A054521 A054522 A054523 * A054525 A054526 A054527
|
|
|
KEYWORD
| sign,tabl,changed
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Apr 09 2000
|
| |
|
|
