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
Examples
{1},
{1, 1},
{1, 156190, 1},
{1, 423281535, 423281535, 1},
{1, 473353301060, 114890380658550, 473353301060, 1},
{1, 382493246941965, 5119020713873609970, 5119020713873609970, 382493246941965, 1}
Programs
-
Mathematica
<< DiscreteMath`Combinatorica` k = 4; a = Table[Table[Eulerian[n + 1, k*m], {m, 0, Floor[n/k]}], {n, 0, 10*k, k}]; Flatten[%]
Comments