login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Triangle read by rows A051731 * A130123, 1<=k<=n.
1

%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