This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A140822 #10 Jul 08 2021 11:20:53 %S A140822 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 A140822 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 A140822 45,10,45,10,1 %N A140822 Triangle T(n,m) = binomial(n,gcd(n,m)) read by rows, 0<=m<=n. %C A140822 Row sums are 1, 2, 4, 8, 16, 22, 64, 44, 160, 224, 474,... %F A140822 T(n,m) = A007318(n,A109004(n,m)). %e A140822 1; %e A140822 1, 1; %e A140822 1, 2, 1; %e A140822 1, 3, 3, 1; %e A140822 1, 4, 6, 4, 1; %e A140822 1, 5, 5, 5, 5, 1; %e A140822 1, 6, 15, 20, 15, 6, 1; %e A140822 1, 7, 7, 7, 7, 7, 7, 1; %e A140822 1, 8, 28, 8, 70, 8, 28, 8, 1; %e A140822 1, 9, 9, 84, 9, 9, 84, 9, 9, 1; %e A140822 1, 10, 45, 10, 45, 252, 45, 10, 45, 10, 1; %t A140822 a = Table[Table[Binomial[n, GCD[n, m]], {m, 0, n}], {n, 0, 10}]; Flatten[a] %K A140822 nonn,easy,tabl %O A140822 0,5 %A A140822 _Roger L. Bagula_ and _Gary W. Adamson_, Jul 16 2008 %E A140822 Offset corrected by _R. J. Mathar_, Nov 07 2011