S000311


Least row in the table of binomial coefficients having a number with n distinct prime factors.

0, 2, 4, 8, 10, 16, 20, 27, 28, 34, 38, 44, 54, 57, 65, 69, 77, 86, 91, 95, 104, 115, 120, 130, 133, 141, 149, 157, 159, 171, 174, 186, 190, 204, 210, 214, 219, 238, 240, 256, 265, 272, 279, 290, 297, 302, 310, 322, 330, 341, 345, 356, 367, 369, 376, 377

0

S000311

T. D. Noe, Plot of 201 terms

T. D. Noe, Table of 201 terms

Eric W. Weisstein, MathWorld: Binomial Coefficient

(Mma) t2 = Table[Max[Table[b = Binomial[n, k]; If[b == 1, 0, Length[FactorInteger[b]]], {k, 0, n/2}]], {n, 0, 2000}]; Flatten[Table[Position[t2, n, 1, 1] - 1, {n, 0, Max[t2]}]]

Cf. A048273.

nonn

T. D. Noe, Nov 03 2014

© Tony D Noe 2014-2015