OFFSET
0,5
COMMENTS
Row sums are: 1, 2, 156192, 846563072, 115837087260672, ... .
EXAMPLE
{1},
{1, 1},
{1, 156190, 1},
{1, 423281535, 423281535, 1},
{1, 473353301060, 114890380658550, 473353301060, 1},
{1, 382493246941965, 5119020713873609970, 5119020713873609970, 382493246941965, 1}
MATHEMATICA
<< DiscreteMath`Combinatorica`
k = 4;
a = Table[Table[Eulerian[n + 1, k*m], {m, 0, Floor[n/k]}], {n, 0, 10*k, k}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Dec 13 2010
STATUS
approved