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 A080214 #12 Dec 02 2021 13:01:51 %S A080214 1,1,1,1,1,3,1,1,1,10,1,3,1,21,10,1,1,3,1,10,35,55,1,3,1,78,1,21,1,10, %T A080214 1,1,165,136,21,3,1,171,286,10,1,21,1,55,10,253,1,3,1,10,680,78,1,3, %U A080214 462,21,969,406,1,10,1,465,35,1,1287,55,1,136,1771,21,1,3,1,666,10 %N A080214 Binomial(greatest prime factor of n, smallest prime factor of n). %H A080214 Antti Karttunen, <a href="/A080214/b080214.txt">Table of n, a(n) for n = 1..65537</a> %t A080214 a[n_] := With[{f = FactorInteger[n]}, Binomial[f[[-1, 1]], f[[1, 1]]]]; %t A080214 Array[a, 100] (* _Jean-François Alcover_, Dec 02 2021 *) %o A080214 (PARI) A080214(n) = if(1==n,n,my(f = factor(n), lpf = f[1, 1], gpf = f[#f~, 1]); binomial(gpf,lpf)); \\ _Antti Karttunen_, Sep 06 2018 %Y A080214 Cf. A006530, A020639, A080215, A080211. %K A080214 nonn,look %O A080214 1,6 %A A080214 _Reinhard Zumkeller_, Feb 06 2003