|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
Row sums are: 1, 2, 156192, 846563072, 115837087260672, ... .
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|