cp's OEIS Frontend

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.

A080214 Binomial(greatest prime factor of n, smallest prime factor of n).

This page as a plain text file.
%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