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 A210359 #5 Jul 27 2012 17:32:18 %S A210359 2,2,4,2,6,4,7,3,4,4,12,4,4,7,7,6,8,5,9,5,10,5,10,6,7,8,6,9,5,11,4,8, %T A210359 10,7,5,11,13,6,10,9,9,9,9,5,5,9,12,7,11,4,15,7,2,8,12,13,7,6,13,6,13, %U A210359 16,7,7,8,15,9,6,6,7,4,16,6,5,20,4,11,11,6,16 %N A210359 Number of rows of Pascal's triangle in which the maximal number of prime factors is n. %e A210359 As can be seen in A048273, there are 6 rows of binomial coefficients in which the maximum number of prime factors is 4: rows 10 to 15. %t A210359 nn = 50; t = Table[0, {nn + 1}]; n = -1; f = 0; While[f < 10, n++; m = Max[Table[b = Binomial[n, k]; If[b == 1, 0, Length[FactorInteger[b]]], {k, 0, n}]]; If[0 <= m <= nn, t[[m + 1]]++; f = 0, f++]]; t %Y A210359 Cf. A048273. %K A210359 nonn %O A210359 0,1 %A A210359 _T. D. Noe_, Apr 03 2012