cp's OEIS Frontend

A127447 Triangle defined by the matrix product A127446 * A054521, read by rows 1<=k<=n.

%I A127447 #10 May 13 2017 18:05:13
%S A127447 1,4,0,6,3,0,12,0,4,0,10,5,5,5,0,24,6,0,0,6,0,14,7,7,7,7,7,0,32,0,16,
%T A127447 0,8,0,8,0,27,18,0,9,9,0,9,9,0,40,10,20,10,0,0,10,0,10,0,22,11,11,11,
%U A127447 11,11,11,11,11,11,0,72,12,12,0,24,0
%N A127447 Triangle defined by the matrix product A127446 * A054521, read by rows 1<=k<=n.
%F A127447 T(n,k) = Sum_{j=k..n} A127446(n,j) * A054521(j,k).
%e A127447 First few rows of the triangle are:
%e A127447 1;
%e A127447 4, 0;
%e A127447 6, 3, 0;
%e A127447 12, 0, 4, 0;
%e A127447 10, 5, 5, 5, 0;
%e A127447 24, 6, 0, 0, 6, 0;
%e A127447 14, 7, 7, 7, 7, 7, 0;
%e A127447 32, 0, 16, 0, 8 0, 8, 0;
%e A127447 ...
%p A127447 A054521 := proc(n, k) if igcd(n,k) = 1 then 1; else 0; fi; end:
%p A127447 A127447 := proc(n,k)
%p A127447         add( A127446(n,j)*A054521(j,k),j=k..n) ;
%p A127447 end proc:
%p A127447 seq(seq(A127447(n,m),m=1..n),n=1..12) ; # _R. J. Mathar_, Nov 08 2011
%Y A127447 Cf. A038040 (column k=1), A000290 (row sums), A127446, A054521.
%K A127447 nonn,tabl
%O A127447 1,2
%A A127447 _Gary W. Adamson_, Jan 14 2007