|
%I #8 Jul 01 2017 02:19:41
%S 1,1,2,1,0,4,1,2,0,8,1,0,0,0,16,1,2,4,0,0,32,1,0,0,0,0,0,64,1,2,0,8,0,
%T 0,0,128,1,0,4,0,0,0,0,0,256,1,2,0,0,16,0,0,0,0,512,1,0,0,0,0,0,0,0,0,
%U 0,1024,1,2,4,8,0,32,0,0,0,0,0,2048
%N Triangle read by rows A051731 * A130123, 1<=k<=n.
%C Row sums = A034729: (1, 3, 5, 11, 17, ...).
%F Triangle read by rows A051731 * A130123, 1<=k<=n, where A130123 = an infinite lower triangular matrix with (1, 2, 4, 8, ...) in the main diagonal and the rest zeros. A051731 = the inverse Mobius transform.
%e First few rows of the triangle are:
%e 1;
%e 1, 2;
%e 1, 0, 4;
%e 1, 2, 0, 8;
%e 1, 0, 0, 0, 16;
%e 1, 2, 4, 0, 0, 32;
%e ...
%o (PARI) tabl(nn) = {ma = matrix(nn, nn, n, k, !(n%k)); mb = matrix(nn, nn, n, k, n--; k--; if (n==k, 2^n, 0)); m = ma*mb; for (n=1, nn, for (k=1, n, print1(m[n, k], ", ");); print(););} \\ _Michel Marcus_, Jun 30 2017
%Y Cf. A034729, A051731, A130123.
%K nonn,tabl
%O 1,3
%A _Gary W. Adamson_, Aug 14 2008
%E Typo in data corrected by _Michel Marcus_, Jun 30 2017
|
