|
%I #12 Jul 13 2022 03:41:45
%S 1,2,6,3,9,18,4,12,24,40,5,15,30,50,75,6,18,36,60,90,126,7,21,42,70,
%T 105,147,196,8,24,48,80,120,168,224,288,9,27,54,90,135,189,252,324,
%U 405,10,30,60,100,150,210,280,360,450,550
%N Triangle read by rows, A127648 * A000012 * A127773, 1 <= k <= n.
%H G. C. Greubel, <a href="/A143219/b143219.txt">Rows n = 1..50 of the triangle, flattened</a>
%F Triangle read by rows, A127648 * A000012 * A127773, 1 <= k <= n.
%F Sum_{k=1..n} T(n, k) = A002417(n).
%F T(n, n) = A002411(n).
%F From _G. C. Greubel_, Jul 12 2022: (Start)
%F T(n, k) = A002024(n,k) * A127773(n,k).
%F T(n, k) = n * binomial(k+1, 2).
%F Sum_{k=1..floor((n+1)/2)} T(n-k+1, k) = (1/4)*(4*n - 3*floor((n+1)/2) + 3)*binomial(2 + floor((n+1)/2), 3).
%F T(2*n-1, n) = A002414(n), n >= 1.
%F T(2*n-2, n-1) = A011379(n-1), n >= 2. (End)
%e First few rows of the triangle =
%e 1;
%e 2, 6;
%e 3, 9, 18;
%e 4, 12, 24, 40;
%e 5, 15, 30, 50, 75;
%e 6, 18, 36, 60, 90, 126;
%e 7, 21, 42, 70, 105, 147, 196;
%e ...
%t Table[n*Binomial[k+1, 2], {n,12}, {k,n}]//Flatten (* _G. C. Greubel_, Jul 12 2022 *)
%o (Magma) [n*Binomial(k+1, 2): k in [1..n], n in [1..12]]; // _G. C. Greubel_, Jul 12 2022
%o (SageMath) flatten([[n*binomial(k+1, 2) for k in (1..n)] for n in (1..12)]) # _G. C. Greubel_, Jul 12 2022
%Y Cf. A000012, A127648, A127773.
%Y Cf. A002024, A002411 (right border), A002414, A002417 (row sums), A011379.
%K nonn,tabl
%O 1,2
%A _Gary W. Adamson_, Jul 30 2008
|
