A231425 The Schramm triangle: T(n,k) = f(gcd(n,k)), where f = Dirichlet inverse of Euler totient.
1, 1, -1, 1, 1, -2, 1, -1, 1, -1, 1, 1, 1, 1, -4, 1, -1, -2, -1, 1, 2, 1, 1, 1, 1, 1, 1, -6, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, -2, 1, 1, -2, 1, 1, -2, 1, -1, 1, -1, -4, -1, 1, -1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -10, 1, -1, -2, -1, 1, 2, 1, -1, -2, -1, 1, 2
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
Programs
-
Mathematica
Clear[nn, t, n, k]; nn = 12; t[n_, 1] = 1; t[1, k_] = 1; t[n_, k_] := t[n, k] = If[n >= k, -Sum[t[n - i, k], {i, 1, k - 1}], -Sum[t[k - i, n], {i, 1, n - 1}]]; Flatten[Table[Table[t[n, k], {k, 1, n}], {n, 1, nn}]]
Formula
T(n,k) = A023900(gcd(n,k)) for n >= k.
Comments