|
%I #9 Sep 08 2022 08:45:30
%S 1,2,4,4,8,12,8,16,24,32,16,32,48,64,80,32,64,96,128,160,192,64,128,
%T 192,256,320,384,448,128,256,384,512,640,768,896,1024,256,512,768,
%U 1024,1280,1536,1792,2048,2304,512,1024,1536,2048,2560,3072,3584,4096,4608,5120
%N Triangle defined by A130123 * A002260, read by rows.
%C Row sums = A001780, (1, 6, 24, 80, 240, ...).
%H G. C. Greubel, <a href="/A130124/b130124.txt">Rows n = 1..100 of triangle, flattened</a>
%F A130123 * A002260, where A130123 = the 2^n transform and A002260 = [1; 1, 2; 1, 2, 3; ...).
%F T(n, k) = 2^(n-1)*k. - _G. C. Greubel_, Jun 05 2019
%e First few rows of the triangle are:
%e 1;
%e 2, 4;
%e 4, 8, 12;
%e 8, 16, 24, 32;
%e 16, 32, 48, 64, 80;
%e 32, 64, 96, 128, 160, 192; ...
%t Table[2^(n-1)*k, {n,1,12}, {k,1,n}]//Flatten (* _G. C. Greubel_, Jun 05 2019 *)
%o (PARI) {T(n,k) = 2^(n-1)*k}; \\ _G. C. Greubel_, Jun 05 2019
%o (Magma) [[2^(n-1)*k: k in [1..n]]: n in [1..12]]; // _G. C. Greubel_, Jun 05 2019
%o (Sage) [[2^(n-1)*k for k in (1..n)] for n in (1..12)] # _G. C. Greubel_, Jun 05 2019
%o (GAP) Flat(List([1..12], n-> List([1..n], k-> 2^(n-1)*k ))); # _G. C. Greubel_, Jun 05 2019
%Y Cf. A001780, A130123, A002260.
%K nonn,tabl
%O 1,2
%A _Gary W. Adamson_, May 11 2007
%E More terms added by _G. C. Greubel_, Jun 05 2019
|
