OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
s = {}; dmax = 0; Do[d = DivisorSigma[0, n]; If[d >= dmax, AppendTo[s, d]; dmax = d], {n, 1, 10^6}]; s (* Amiram Eldar, Jun 07 2019 *)
PROG
(PARI) is_a067128(n) = my(nd=numdiv(n)); for(k=1, n-1, if(numdiv(k) > nd, return(0))); return(1)
for(n=1, 50000, if(is_a067128(n), print1(numdiv(n), ", "))) \\ Felix Fröhlich, May 24 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, May 20 2016
STATUS
approved