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 A321852 #26 Jan 10 2019 10:26:38 %S A321852 6,7,8,9,10,18,26,40,77,120,210,477,715,2227,3290,9065,17020,49915, %T A321852 139195,240465,721929,1124840,4455445,16319578,26683220,105655905, %U A321852 134879176,677868170,3290262264 %N A321852 a(n) is the smallest m for which binomial(m, 6) has exactly n distinct prime factors. %t A321852 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 *) %o A321852 (PARI) a(n)={my(m=6, t=1); while(omega(t)<>n, m++; t*=m/(m-6)); m} \\ _Andrew Howroyd_, Nov 26 2018 %Y A321852 Cf. A076551, A156329. %K A321852 nonn,more %O A321852 0,1 %A A321852 _Zachary M Franco_, Nov 19 2018 %E A321852 a(22)-a(28) from _Giovanni Resta_, Nov 27 2018 %E A321852 a(0) prepended by _Jianing Song_, Dec 31 2018