OFFSET
1,6
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
MATHEMATICA
a[n_] := With[{f = FactorInteger[n]}, Binomial[f[[-1, 1]], f[[1, 1]]]];
Array[a, 100] (* Jean-François Alcover, Dec 02 2021 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Reinhard Zumkeller, Feb 06 2003
STATUS
approved