login

%I #12 Mar 25 2022 00:34:29

%S 1,2,1,4,4,1,8,12,6,1,16,32,23,8,1,32,80,72,37,10,1,64,192,201,132,54,

%T 12,1,128,448,522,405,216,74,14,1,256,1024,1291,1128,723,328,97,16,1,

%U 512,2304,3084,2941,2154,1191,472,123,18,1,1024,5120,7181,7316,5920,3788,1850,652,152,20,1

%N A007318 * A077028.

%C Row sums = A134396: (1, 3, 9, 27, 80, 232, 656, ...).

%F A007318 * A077028 as infinite lower triangular matrices.

%e First few rows of the triangle:

%e 1;

%e 2, 1;

%e 4, 4, 1;

%e 8, 12, 6, 1;

%e 16, 32, 23, 8, 1;

%e 32, 80, 72, 37, 10, 1;

%e ...

%p A007318 := proc(n,k) binomial(n,k) ; end: A077028 := proc(i,j) if j <= i then (i-j)*(j-1)+1 ; else 0 ; fi ; end: A134395 := proc(n,m) add(A007318(n,k)*A077028(k+1,m+1),k=0..n) ; end: for n from 0 to 15 do for m from 0 to n do printf("%d,",A134395(n,m)) ; od: od: # _R. J. Mathar_, Jun 08 2008

%Y Cf. A077028, A134396.

%K nonn,tabl

%O 0,2

%A _Gary W. Adamson_, Oct 23 2007

%E Corrected and extended by _R. J. Mathar_, Jun 08 2008