A156564 Triangle: see Mathematica code.

1, 1, 1, 1, 1, 2, 1, 2, 3, 6, 1, 3, 40, 35, 24, 1, 4, 165, 8372, 1755, 120, 1, 5, 456, 159831, 17174080, 382075, 720, 1, 6, 1015, 1387064, 2572040925, 329455658840, 354205467, 5040, 1, 7, 1968, 7773755, 107605514016, 670559078523807, 57782732285824000, 1368556206875, 40320

Offset

0,6

Links

Table of n, a(n) for n=0..44.

Example

{1},
{1, 1},
{1, 1, 2},
{1, 2, 3, 6},
{1, 3, 40, 35, 24},
{1, 4, 165, 8372, 1755, 120},
{1, 5, 456, 159831, 17174080, 382075, 720},
{1, 6, 1015, 1387064, 2572040925, 329455658840, 354205467, 5040},

Mathematica

t[n_, m_] = If[m == 0, n!, Product[(m + 1)^n - Sum[(m + 1)^i, {i, 0, k - 1}], {k, 1, n}]];
a = Table[Table[t[n, m], {n, 0, 10}], {m, 0, 10}];
b = Table[Table[a[[m, n - m + 1]], {m, n, 1, -1}], {n, 1, Length[a]}];
Flatten[%]

Crossrefs

Sequence in context: A033639 A156565 A156693 * A198123 A106576 A301336

Adjacent sequences: A156561 A156562 A156563 * A156565 A156566 A156567

Keyword

nonn,tabl,uned,obsc,less

Author

Roger L. Bagula and Gary W. Adamson, Feb 10 2009

Status

approved