OFFSET
0,1
EXAMPLE
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.
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 03 2012
STATUS
approved