OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..50 from Harry J. Smith)
FORMULA
MATHEMATICA
s={}; dm=0; Do[d = DivisorSigma[0, n]; If[d > dm, dm=d; AppendTo[s, DivisorSigma[1, n]]], {n, 1, 10^5}]; s (* Amiram Eldar, Jun 28 2019 *)
PROG
(PARI) a=0; j=[]; for(n=1, 200000, b=numdiv(n); if(b>a, a=b; j=concat(j, sigma(n)))); j
(PARI) { n=a=0; for (m=1, 10^9, b=numdiv(m); if(b>a, a=b; write("b063072.txt", n++, " ", sigma(m)); if (n==50, break)) ) } \\ Harry J. Smith, Aug 16 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 02 2001
EXTENSIONS
More terms from Reiner Martin, Dec 22 2001
STATUS
approved