login
A177811
Sub-triangle of Eulerian numbers A008292, taking every 4th term of every 4th row.
0
1, 1, 1, 1, 156190, 1, 1, 423281535, 423281535, 1, 1, 473353301060, 114890380658550, 473353301060, 1, 1, 382493246941965, 5119020713873609970, 5119020713873609970, 382493246941965, 1, 1, 269025107855605626, 101955892318210543172751, 4179647109945703200884716, 101955892318210543172751, 269025107855605626, 1
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
nonn,tabl,less
AUTHOR
Roger L. Bagula, Dec 13 2010
STATUS
approved