OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..84
EXAMPLE
MATHEMATICA
f[p_, e_] := (e+1)/DivisorSigma[0, e]; r[1] = 1; r[n_] := Times @@ f @@@ FactorInteger[n]; seq[kmax_] := Module[{rm = 0, s = {}, r1}, Do[r1 = r[k]; If[r1 > rm, rm = r1; AppendTo[s, k]], {k, 1 , kmax}]; s]; seq[10^6]
PROG
(PARI) r(n) = {my(f = factor(n)); prod(i = 1, #f~, (f[i, 2]+1)/numdiv(f[i, 2])); }
lista(kmax) = {my(rm = 0, r1); for(k = 1, kmax, r1 = r(k); if(r1 > rm, rm = r1; print1(k, ", "))); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 25 2023
STATUS
approved