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 A152685 #7 Aug 19 2014 15:41:27 %S A152685 1,1,1,1,1,3,1,6,6,1,10,30,1,15,90,60,1,21,210,420,1,18,420,1680,1365, %T A152685 1,36,756,5040,12285,1,45,1260,12600,61425,38745,1,55,1980,27720, %U A152685 225225,426195,1,66,2970,55440,675675,2557170,1725570,1,78,4290 %N A152685 Triangle read by rows, A100861(n,k) * A118930(k). %F A152685 Triangle read by rows, A100861 * (A118930 * n^(n-k)) = M*Q. M = A100861 as an infinite lower triangular matrix and Q = a matrix with A118930 as the main diagonal and the rest zeros. %e A152685 First few rows of the triangle = %e A152685 1; %e A152685 1; %e A152685 1, 1; %e A152685 1, 3; %e A152685 1, 6, 6; %e A152685 1, 10, 30; %e A152685 1, 15, 90, 60; %e A152685 1, 21, 210, 420; %e A152685 1, 28, 420, 1680, 1365; %e A152685 1, 36, 756, 5040, 12285; %e A152685 1, 45, 1260, 12600, 61425, 38745; %e A152685 1, 55, 1980, 27720, 225225, 426195; %e A152685 ... %p A152685 A152685 := proc(n,k) %p A152685 A100861(n,k)*A118930(k) ; %p A152685 end proc: %p A152685 seq(seq(A152685(n,k),k=0..n/2),n=0..13) ; # _R. J. Mathar_, Aug 19 2014 %Y A152685 Cf. A100861, A118930 (row sums) %K A152685 nonn,tabf %O A152685 0,6 %A A152685 _Gary W. Adamson_, Dec 10 2008