|
%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
|
