|
%I #6 Sep 08 2013 18:25:08
%S 1,4,2,9,0,6,16,12,0,8,25,0,0,0,20,36,18,24,0,0,12,49,0,0,0,0,0,42,64,
%T 56,0,48,0,0,0,32,81,0,72,0,0,0,0,0,54,100,50,0,0,80,0,0,0,0,40,121,0,
%U 0,0,0,0,0,0,0,0,110,144,108,96,72,0,72,0,0,0,0,0,48
%N Triangle equal to the matrix product A127466 * A051731.
%F T(n,1) = n^2.
%F T(n,n) = n*phi(n) = A002618(n).
%e First few rows of the triangle are:
%e 1;
%e 4, 2;
%e 9, 0, 6;
%e 16, 12, 0, 8;
%e 25, 0, 0, 0, 20;
%e 36, 18, 24, 0, 0, 12;
%e 49, 0, 0, 0, 0, 0, 42;
%e 64, 56, 0, 48, 0, 0, 0, 32;
%e 81, 0, 72, 0, 0, 0, 0, 0, 54;
%e ...
%p A127470 := proc(n,k)
%p add( A127466(n,j)*A051731(j,k),j=k..n) ;
%p end proc: # _R. J. Mathar_, Sep 08 2013
%Y Cf. A127466, A051731, A127469 (row sums), A061949.
%K nonn,tabl
%O 1,2
%A _Gary W. Adamson_, Jan 15 2007
%E Terms corrected by _R. J. Mathar_, Sep 08 2013
|
