OFFSET
1,2
COMMENTS
560 is the first term that is less than the preceding term. - David Wasserman, Feb 03 2005
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..609
FORMULA
MATHEMATICA
a = {1}; b = {1}; f[n_] := Times @@ Last /@ FactorInteger[n]; Do[If[f@ n > Max[b], And[AppendTo[b, f@ n], AppendTo[a, n]]], {n, 1000000}]; DivisorSigma[0, #] &@ a (* Michael De Vlieger, Aug 28 2015 *)
PROG
(PARI) {prdex(n)=local(s, fac); s=1; fac=factor(n); for(k=1, matsize(fac)[1], s=s*fac[k, 2]); return(s)} {dhp(m)=local(rec); rec=0; for(n=1, m, if(prdex(n)>rec, rec=prdex(n); print1(numdiv(n)", ")))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 10 2003
EXTENSIONS
More terms from David Wasserman, Feb 03 2005
Two missing terms added by Walter Roscello, Aug 28 2015
STATUS
approved