A177811 Sub-triangle of Eulerian numbers A008292, taking every 4th term of every 4th row.

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, ... .

Links

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

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

Cf. A008292, A085503, A159346.

Sequence in context: A171658 A347936 A347939 * A341118 A129242 A186605

Adjacent sequences: A177808 A177809 A177810 * A177812 A177813 A177814

Keyword

nonn,tabl,less

Author

Roger L. Bagula, Dec 13 2010

Status

approved