OFFSET
1,2
COMMENTS
Subsequence of A307866.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..393
MATHEMATICA
a[0] = 0; a[1] = 1; a[n_] := a[n] = Total[a /@ Most[Divisors[n]]]; am = -1; s={}; Do[a1 = a[n]/n; If[a1 > am, AppendTo[s, n]; am = a1], {n, 1, 10000}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 02 2019
STATUS
approved