A177811 - OEIS

%I #15 Feb 08 2023 09:30:40

%S 1,1,1,1,156190,1,1,423281535,423281535,1,1,473353301060,

%T 114890380658550,473353301060,1,1,382493246941965,5119020713873609970,

%U 5119020713873609970,382493246941965,1,1,269025107855605626,101955892318210543172751,4179647109945703200884716,101955892318210543172751,269025107855605626,1

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

%C Row sums are: 1, 2, 156192, 846563072, 115837087260672, ... .

%e {1},

%e {1, 1},

%e {1, 156190, 1},

%e {1, 423281535, 423281535, 1},

%e {1, 473353301060, 114890380658550, 473353301060, 1},

%e {1, 382493246941965, 5119020713873609970, 5119020713873609970, 382493246941965, 1}

%t << DiscreteMath`Combinatorica`

%t k = 4;

%t a = Table[Table[Eulerian[n + 1, k*m], {m, 0, Floor[n/k]}], {n, 0, 10*k, k}];

%t Flatten[%]

%Y Cf. A008292, A085503, A159346.

%K nonn,tabl,less

%O 0,5

%A _Roger L. Bagula_, Dec 13 2010