|
%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
|
