%I #22 Mar 18 2021 23:31:50
%S 1,1,1,1,2,1,1,3,3,1,4,6,3,1,5,10,9,1,6,15,19,9,1,7,21,34,28,1,8,28,
%T 55,62,28,1,9,36,83,117,90,1,10,45,119,200,207,90,1,11,55,164,319,407,
%U 297,1,12,66,219,483,726,704,297,1,13,78,285,702,1209,1430,1001,1,14,91,363,987,1911,2639,2431,1001
%N Triangular array T read by rows: T(n,0) = 1 for n >= 0; T(1,1) = 1; and for n >= 2, T(n,k) = T(n-1,k-1) + T(n-1,k) for k = 1,2,...,[(n+1)/2]; T(n,n/2 + 1) = T(n-1,n/2) if n is even.
%H G. C. Greubel, <a href="/A026009/b026009.txt">Rows n = 0..100 of the triangle, flattened</a>
%F T(n, k) = binomial(n, k) - binomial(n, k-3). - Darko Marinov (marinov(AT)lcs.mit.edu), May 17 2001
%F Sum_{k=0..floor((n+2)/2)} T(n, k) = A026010(n). - _G. C. Greubel_, Mar 18 2021
%e From _Jonathon Kirkpatrick_, Jul 01 2016: (Start)
%e Triangle begins:
%e 1;
%e 1, 1;
%e 1, 2, 1;
%e 1, 3, 3;
%e 1, 4, 6, 3;
%e 1, 5, 10, 9;
%e 1, 6, 15, 19, 9;
%e 1, 7, 21, 34, 28;
%e 1, 8, 28, 55, 62, 28;
%e 1, 9, 36, 83, 117, 90;
%e 1, 10, 45, 119, 200, 207, 90;
%e 1, 11, 55, 164, 319, 407, 297;
%e 1, 12, 66, 219, 483, 726, 704, 297;
%e 1, 13, 78, 285, 702, 1209, 1430, 1001;
%e ... (End)
%t T[n_, k_]:= Binomial[n, k] - Binomial[n, k-3];
%t Join[{1}, Table[T[n, k], {n,14}, {k,0,Floor[(n+2)/2]}]//Flatten] (* _G. C. Greubel_, Mar 18 2021 *)
%o (Sage) [1]+flatten([[binomial(n,k) - binomial(n,k-3) for k in (0..(n+2)//2)] for n in (1..15)]) # _G. C. Greubel_, Mar 18 2021
%o (Magma) [1] cat [Binomial(n,k) - Binomial(n,k-3): k in [0..Floor((n+2)/2)], n in [1..15]]; // _G. C. Greubel_, Mar 18 2021
%Y Diagonals of this sequence: A000217, A000245, A026012, A026013, A026014, A026015, A026016, A026017, A026018, A026019, A026020, A026021.
%Y Sums involving this sequence: A026010, A027287, A027288, A027289, A027290, A027291, A027292.
%K nonn,tabf,easy
%O 0,5
%A _Clark Kimberling_