|
%I #25 Jan 22 2020 21:07:13
%S 1,1,0,1,1,0,1,5,1,0,1,18,15,1,0,1,58,129,37,1,0,1,179,877,646,83,1,0,
%T 1,543,5280,8030,2685,177,1,0,1,1636,29658,82610,56285,10002,367,1,0,
%U 1,4916,159742,756218,919615,335162,34777,749,1,0
%N Triangle T(n,k), 0 <= k <= n, read by rows: given by [ 1, 0, 3, 0, 5, 0, 7, 0, 9, 0, ...] DELTA [ 0, 1, 0, 2, 0, 3, 0, 4, 0, 5, 0, ...] where DELTA is the operator defined in A084938.
%C Generalized Eulerian numbers A008292.
%C Reversal of A211399. - _Philippe Deléham_, Feb 12 2013
%H G. C. Greubel, <a href="/A102365/b102365.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F T(n, k) = (n-k)*T(n-1, k-1) + (2*k+1)*T(n-1, k) with T(0, 0) = 1, T(0, k) = 0 if k > 0, T(n, k) = 0 if k < 0.
%F Sum_{k>=0} T(n, k)*2^k = A001147(n).
%F Sum_{k>=0} T(n, k) = A014307(n). - _Philippe Deléham_, Mar 19 2005
%e Triangle begins:
%e 1;
%e 1, 0;
%e 1, 1, 0;
%e 1, 5, 1, 0;
%e 1, 18, 15, 1, 0;
%e 1, 58, 129, 37, 1, 0; ...
%t T[0, 0] := 1; T[n_, -1] := 0; T[n_, n_] := 0; T[n_, k_] := T[n, k] = (n - k)*T[n - 1, k - 1] + (2*k + 1)*T[n - 1, k]; Join[{1}, Table[If[k < 0, 0, If[k >= n, 0, T[n, k]]], {n, 1, 5}, {k, 0, n}] // Flatten] (* _G. C. Greubel_, Jun 30 2017 *)
%Y Diagonals: A000007, A000012, A050488, A142965, A142966.
%Y Columns: A000012, A000340, A156922, A156923, A156924.
%K nonn,easy,tabl
%O 0,8
%A _Philippe Deléham_, Feb 22 2005
|
