cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A049780 Array T, read by descending antidiagonals: T(n, k) = k*(2*n + k + 1)/2 for n, k >= 0.

This page as a plain text file.
%I A049780 #50 Aug 15 2025 22:31:32
%S A049780 0,1,0,3,2,0,6,5,3,0,10,9,7,4,0,15,14,12,9,5,0,21,20,18,15,11,6,0,28,
%T A049780 27,25,22,18,13,7,0,36,35,33,30,26,21,15,8,0,45,44,42,39,35,30,24,17,
%U A049780 9,0,55,54,52,49,45,40,34,27,19,10,0,66,65,63,60,56,51,45,38,30,21,11,0
%N A049780 Array T, read by descending antidiagonals: T(n, k) = k*(2*n + k + 1)/2 for n, k >= 0.
%C A049780 Triangle S(n,k) = T(k, n-k), read by rows, is given by S(n,k) = A000217(n) - A000217(k) for n >= 0 and 0 <= k <= n. - _Philippe Deléham_, Mar 07 2013 [Edited by _Petros Hadjicostas_, Nov 20 2019]
%H A049780 G. C. Greubel, <a href="/A049780/b049780.txt">Rows n = 0..100 of triangle, flattened</a>
%F A049780 T(n,k) = Sum_{j=1..k} (n+j) = k*(2*n + k + 1)/2.
%F A049780 S(n,k) = n*(n+1)/2 - k*(k+1)/2 for n >= 0 and 0 <= k <= n - _Philippe Deléham_, Mar 07 2013 [Edited by _Petros Hadjicostas_, Nov 20 2019]
%F A049780 From _Stefano Spezia_, Dec 13 2019: (Start)
%F A049780 G.f. for T(n,k): y*(1 - x*y)/((1 - x)^2*(1 - y)^3).
%F A049780 E.g.f. for T(n,k): (1/2)*exp(x+y)*y*(2 + 2*x + y). (End)
%F A049780 G.f. for S(n,k): x*(1 - x^2*y)/((1 - x*y)^2*(1 - x)^3). - _Petros Hadjicostas_, Dec 14 2019
%e A049780 From _Petros Hadjicostas_, Nov 20 2019: (Start)
%e A049780 Rectangular array T(n,k) (with rows n >= 0 and columns k >= 0) begins as follows:
%e A049780   0, 1,  3,  6, 10, 15, 21, 28, 36, 45,  55, ...
%e A049780   0, 2,  5,  9, 14, 20, 27, 35, 44, 54,  65, ...
%e A049780   0, 3,  7, 12, 18, 25, 33, 42, 52, 63,  75, ...
%e A049780   0, 4,  9, 15, 22, 30, 39, 49, 60, 72,  85, ...
%e A049780   0, 5, 11, 18, 26, 35, 45, 56, 68, 81,  95, ...
%e A049780   0, 6, 13, 21, 30, 40, 51, 63, 76, 90, 105, ...
%e A049780   ... (End)
%e A049780 From _Philippe Deléham_, Mar 07 2013: (Start)
%e A049780 Triangle S(n, k) (with rows n >= 0 and columns k >= 0) begins as follows:
%e A049780    0;
%e A049780    1,  0;
%e A049780    3,  2,  0;
%e A049780    6,  5,  3,  0;
%e A049780   10,  9,  7,  4,  0;
%e A049780   15, 14, 12,  9,  5,  0;
%e A049780   21, 20, 18, 15, 11,  6,  0;
%e A049780   28, 27, 25, 22, 18, 13,  7, 0;
%e A049780   36, 35, 33, 30, 26, 21, 15, 8, 0;
%e A049780   ... (End)
%p A049780 seq(seq( (n-k)*(n+k+1)/2, k=0..n), n=0..15); # _G. C. Greubel_, Dec 12 2019
%t A049780 Table[(n-k)*(n+k+1)/2, {n,0,15}, {k,0,n}]//Flatten (* _G. C. Greubel_, Dec 12 2019 *)
%o A049780 (PARI) T(n,k) = k*(2*n+k+1)/2;
%o A049780 for(n=0, 15, for(k=0,n, print1(T(k,n-k), ", "))) \\ _G. C. Greubel_, Dec 12 2019
%o A049780 (Magma) [(n-k)*(n+k+1)/2: k in [0..n], n in [0..15]]; // _G. C. Greubel_, Dec 12 2019
%o A049780 (Sage) [[(n-k)*(n+k+1)/2 for k in (0..n)] for n in (0..15)] # _G. C. Greubel_, Dec 12 2019
%o A049780 (GAP) Flat(List([0..15], n-> List([0..n], k-> (n-k)*(n+k+1)/2 ))); # _G. C. Greubel_, Dec 12 2019
%Y A049780 Diagonal sums are in A000330. See also A049777 (triangle without the zeros).
%K A049780 nonn,tabl
%O A049780 0,4
%A A049780 _Clark Kimberling_