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 A201146 #23 Aug 03 2014 14:27:53 %S A201146 1,2,1,6,3,1,6,3,1,1,30,15,5,5,1,30,15,5,5,1,1,210,105,35,35,7,7,1, %T A201146 210,105,35,35,7,7,1,1,210,105,35,35,7,7,1,1,1,210,105,35,35,7,7,1,1, %U A201146 1,1,2310,1155,385,385,77,77,11,11,11,11,1,2310,1155,385,385 %N A201146 Triangle read by rows: T(n,k) = (n#)/(k#), 1 <= k <= n. %C A201146 Row sums give A201156. %C A201146 Central terms give A068111: T(2*n-1,n) = A068111(n). %C A201146 T(n,1) = A034386(n). %C A201146 T(n,n-1) = A089026(n) for n > 1. %C A201146 T(n,n) = A000012(n). %C A201146 Let n > 1 and p = A000040(n). Then T(p,p-1) = T(p+1,p-1) = p. %C A201146 T(2*n-1,n-1) = A073838(n) for n > 1. %C A201146 T(2*n,n+1) = A144186(n). %H A201146 Arkadiusz Wesolowski, <a href="/A201146/b201146.txt">Rows n = 1..141 of triangle, flattened</a> %e A201146 1: 1 %e A201146 2: 2 1 %e A201146 3: 6 3 1 %e A201146 4: 6 3 1 1 %e A201146 5: 30 15 5 5 1 %e A201146 6: 30 15 5 5 1 1 %e A201146 7: 210 105 35 35 7 7 1 %e A201146 8: 210 105 35 35 7 7 1 1 %e A201146 9: 210 105 35 35 7 7 1 1 1 %t A201146 lst = {}; Do[AppendTo[lst, Product[Prime[i], {i, PrimePi[n]}]/Product[Prime[i], {i, PrimePi[k]}]], {n, 12}, {k, n}]; lst (* _Arkadiusz Wesolowski_, Dec 02 2011 *) %Y A201146 Cf. A034386. %K A201146 nonn,tabl %O A201146 1,2 %A A201146 _Arkadiusz Wesolowski_, Nov 27 2011