OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10503 (all terms k <= A002110(13))
MATHEMATICA
(* Load May 19 2018 function f at A025487, then run the following: *)
s = Union@ Flatten@ f[10];
Reap[For[i = 1; r = 0, i <= Length[s], i++,
If[#2 > r, Set[r, #2], Sow[#1]] & @@ {#, DivisorSigma[0, #]} &@
s[[i]]] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Dec 12 2023
STATUS
approved