|
| |
|
|
A156353
|
|
A symmetrical powers triangle sequence: t(n,m)=(m^(n - m) + (n - m)^m).
|
|
1
| |
|
|
2, 3, 3, 4, 8, 4, 5, 17, 17, 5, 6, 32, 54, 32, 6, 7, 57, 145, 145, 57, 7, 8, 100, 368, 512, 368, 100, 8, 9, 177, 945, 1649, 1649, 945, 177, 9, 10, 320, 2530, 5392, 6250, 5392, 2530, 320, 10, 11, 593, 7073, 18785, 23401, 23401, 18785, 7073, 593, 11, 12, 1124, 20412
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
COMMENTS
| Equivalently, table by antidiagonals of n^m + m^n for n,m > 0.
Row sums are:
{2, 6, 16, 44, 130, 418, 1464, 5560, 22754, 99726, 465536,...}.
|
|
|
FORMULA
| t(n,m)=(m^(n - m) + (n - m)^m).
|
|
|
EXAMPLE
| {2},
{3, 3},
{4, 8, 4},
{5, 17, 17, 5},
{6, 32, 54, 32, 6},
{7, 57, 145, 145, 57, 7},
{8, 100, 368, 512, 368, 100, 8},
{9, 177, 945, 1649, 1649, 945, 177, 9},
{10, 320, 2530, 5392, 6250, 5392, 2530, 320, 10},
{11, 593, 7073, 18785, 23401, 23401, 18785, 7073, 593, 11},
{12, 1124, 20412, 69632, 94932, 93312, 94932, 69632, 20412, 1124, 12}
|
|
|
MATHEMATICA
| Clear[t, n, m];
t[n_, m_] = (m^(n - m) + (n - m)^m);
Table[Table[t[n, m], {m, 1, n - 1}], {n, 2, 12}];
Flatten[%]
|
|
|
CROSSREFS
| A005652 is the same table with row 0 and column 0 included.
Sequence in context: A140514 A047079 A203990 * A202560 A173933 A193821
Adjacent sequences: A156350 A156351 A156352 * A156354 A156355 A156356
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 08 2009
|
|
|
EXTENSIONS
| Edited by Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Oct 26 2009
|
| |
|
|
