OFFSET
1,3
LINKS
Seiichi Manyama, Antidiagonals n = 1..140, flattened
Eric Weisstein's World of Mathematics, Eulerian Number and Euler's Number Triangle
FORMULA
G.f. of column k: Sum_{i>=1} phi(i) * ( Sum_{j=1..k} A008292(k, j) * x^(i*j) )/(1 - x^i)^(k+1).
T(n,k) = Sum_{d|n} phi(n/d) * d^k.
T(n,k) = Sum_{d|n} mu(n/d) * d * sigma_{k-1}(d).
Dirichlet g.f. of column k: zeta(s-1) * zeta(s-k) / zeta(s). - Ilya Gutkovskiy, Apr 18 2021
T(n,k) = Sum_{j=1..n} (n/gcd(n,j))^k*phi(gcd(n,j))/phi(n/gcd(n,j)). - Richard L. Ollerton, May 10 2021
T(n,k) = Sum_{1 <= j_1, j_2, ..., j_k <= n} gcd(j_1, j_2, ..., j_k)^2 = Sum_{d divides n} d * J_k(n/d), where J_k(n) denotes the k-th Jordan totient function. - Peter Bala, Jan 29 2024
EXAMPLE
G.f. of column 3: Sum_{i>=1} phi(i) * (x^i + 4*x^(2*i) + x^(3*i))/(1 - x^i)^4.
Square array begins:
1, 1, 1, 1, 1, 1, 1, ...
3, 5, 9, 17, 33, 65, 129, ...
5, 11, 29, 83, 245, 731, 2189, ...
8, 22, 74, 274, 1058, 4162, 16514, ...
9, 29, 129, 629, 3129, 15629, 78129, ...
15, 55, 261, 1411, 8085, 47515, 282381, ...
13, 55, 349, 2407, 16813, 117655, 823549, ...
MATHEMATICA
T[n_, k_] := DivisorSum[n, EulerPhi[n/#] * #^k &]; Table[T[k, n - k + 1], {n, 1, 11}, {k, 1, n}] // Flatten (* Amiram Eldar, Apr 18 2021 *)
PROG
(PARI) T(n, k) = sum(j=1, n, gcd(j, n)^k);
(PARI) T(n, k) = sumdiv(n, d, eulerphi(n/d)*d^k);
(PARI) T(n, k) = sumdiv(n, d, moebius(n/d)*d*sigma(d, k-1));
CROSSREFS
KEYWORD
AUTHOR
Seiichi Manyama, Apr 17 2021
STATUS
approved