A082754 Triangle read by rows: T(n, k) = abs(n^k-k^n), 1<=k<=n.
0, 1, 0, 2, 1, 0, 3, 0, 17, 0, 4, 7, 118, 399, 0, 5, 28, 513, 2800, 7849, 0, 6, 79, 1844, 13983, 61318, 162287, 0, 7, 192, 6049, 61440, 357857, 1417472, 3667649, 0, 8, 431, 18954, 255583, 1894076, 9546255, 35570638, 91171007, 0, 9, 924, 58049, 1038576
Offset: 1
Examples
Triangle begins: 0 1 0 2 1 0 3 0 17 0 4 7 118 399 0 5 28 513 2800 7849 0 ...
Crossrefs
Cf. A055651.
Programs
-
Mathematica
a[n_, k_] := a[n, k] = n^k - k^n; ColumnForm[Table[Abs[a[n, k]], {n, 10}, {k, n}], Center] (* Alonso del Arte, Jul 09 2009 *)
Extensions
More terms from David Wasserman, Oct 04 2004
Comments