login
Triangle T(n, k) = -floor(n/k) with T(n, n) = 1, read by rows.
3

%I #10 Mar 07 2021 03:05:27

%S 1,-2,1,-3,-1,1,-4,-2,-1,1,-5,-2,-1,-1,1,-6,-3,-2,-1,-1,1,-7,-3,-2,-1,

%T -1,-1,1,-8,-4,-2,-2,-1,-1,-1,1,-9,-4,-3,-2,-1,-1,-1,-1,1,-10,-5,-3,

%U -2,-2,-1,-1,-1,-1,1,-11,-5,-3,-2,-2,-1,-1,-1,-1,-1,1,-12,-6,-4,-3,-2,-2,-1,-1,-1,-1,-1,1

%N Triangle T(n, k) = -floor(n/k) with T(n, n) = 1, read by rows.

%H G. C. Greubel, <a href="/A174557/b174557.txt">Rows n = 1..30 of the triangle, flattened</a>

%F T(n, k) = A010766(n, k)*A154990(n, k).

%F T(n, k) = -floor(n/k) with T(n, n) = 1. - _G. C. Greubel_, Mar 06 2021

%e Table begins:

%e 1;

%e -2, 1;

%e -3, -1, 1;

%e -4, -2, -1, 1;

%e -5, -2, -1, -1, 1;

%e -6, -3, -2, -1, -1, 1;

%e -7, -3, -2, -1, -1, -1, 1;

%e -8, -4, -2, -2, -1, -1, -1, 1;

%e -9, -4, -3, -2, -1, -1, -1, -1, 1;

%e -10, -5, -3, -2, -2, -1, -1, -1, -1, 1;

%t Table[If[k==n, 1, -Floor[n/k]], {n,12}, {k,n}]//Flatten (* _G. C. Greubel_, Mar 06 2021 *)

%o (Sage) flatten([[1 if k==n else -(n//k) for k in [1..n]] for n in [1..12]]) # _G. C. Greubel_, Mar 06 2021

%o (Magma) [k eq n select 1 else -Floor(n/k): k in [1..n], n in [1..12]]; // _G. C. Greubel_, Mar 06 2021

%Y Cf. A010766, A154990.

%K sign,tabl

%O 1,2

%A _Mats Granvik_, _Paul D. Hanna_, Mar 22 2010