A321852 a(n) is the smallest m for which binomial(m, 6) has exactly n distinct prime factors.

6, 7, 8, 9, 10, 18, 26, 40, 77, 120, 210, 477, 715, 2227, 3290, 9065, 17020, 49915, 139195, 240465, 721929, 1124840, 4455445, 16319578, 26683220, 105655905, 134879176, 677868170, 3290262264

Offset

0,1

Links

Table of n, a(n) for n=0..28.

Mathematica

a[n_] := Module[{m=6, t=1}, While[PrimeNu[t] != n, m++; t*=m/(m-6)]; m]; Array[a, 20] (* Amiram Eldar, Nov 27 2018 *)

Prog

(PARI) a(n)={my(m=6, t=1); while(omega(t)<>n, m++; t*=m/(m-6)); m} \\ Andrew Howroyd, Nov 26 2018

Crossrefs

Cf. A076551, A156329.

Sequence in context: A353437 A352155 A058368 * A108613 A081408 A143616

Adjacent sequences: A321849 A321850 A321851 * A321853 A321854 A321855

Keyword

nonn,more

Author

Zachary M Franco, Nov 19 2018

Extensions

a(22)-a(28) from Giovanni Resta, Nov 27 2018

a(0) prepended by Jianing Song, Dec 31 2018

Status

approved