OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..141, flattened
EXAMPLE
1;
2, 6;
3, 12, 33;
4, 20, 72, 280;
5, 30, 135, 660, 3145;
6, 42, 228, 1344, 7800, 46956;
...
MAPLE
with(numtheory):
T:= (n, k)-> add(phi(d)*n^(k/d), d=divisors(k)):
seq(seq(T(n, k), k=1..n), n=1..10); # Alois P. Heinz, Aug 28 2013
MATHEMATICA
T[n_, k_] := Sum[EulerPhi[d]*n^(k/d), {d, Divisors[k]}]; Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Feb 25 2015 *)
PROG
(PARI) T(n, k) = sumdiv(k, d, eulerphi(d)*n^(k/d)); \\ Michel Marcus, Feb 25 2015
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
N. J. A. Sloane, Apr 16 2000
STATUS
approved