|
%I #10 Jul 08 2021 11:20:53
%S 1,1,1,1,2,1,1,3,3,1,1,4,6,4,1,1,5,5,5,5,1,1,6,15,20,15,6,1,1,7,7,7,7,
%T 7,7,1,1,8,28,8,70,8,28,8,1,1,9,9,84,9,9,84,9,9,1,1,10,45,10,45,252,
%U 45,10,45,10,1
%N Triangle T(n,m) = binomial(n,gcd(n,m)) read by rows, 0<=m<=n.
%C Row sums are 1, 2, 4, 8, 16, 22, 64, 44, 160, 224, 474,...
%F T(n,m) = A007318(n,A109004(n,m)).
%e 1;
%e 1, 1;
%e 1, 2, 1;
%e 1, 3, 3, 1;
%e 1, 4, 6, 4, 1;
%e 1, 5, 5, 5, 5, 1;
%e 1, 6, 15, 20, 15, 6, 1;
%e 1, 7, 7, 7, 7, 7, 7, 1;
%e 1, 8, 28, 8, 70, 8, 28, 8, 1;
%e 1, 9, 9, 84, 9, 9, 84, 9, 9, 1;
%e 1, 10, 45, 10, 45, 252, 45, 10, 45, 10, 1;
%t a = Table[Table[Binomial[n, GCD[n, m]], {m, 0, n}], {n, 0, 10}]; Flatten[a]
%K nonn,easy,tabl
%O 0,5
%A _Roger L. Bagula_ and _Gary W. Adamson_, Jul 16 2008
%E Offset corrected by _R. J. Mathar_, Nov 07 2011
|
