OFFSET
1,2
MATHEMATICA
A362459[upto_]:=Module[{d=DivisorSigma[1, Range[upto]]-Range[upto], r=0, f}, Join[{1}, Table[If[(f=First[d=Abs[Differences[d]]])>r, r=f; n, Nothing], {n, 2, upto}]]]; A362459[10000] (* Paolo Xausa, May 07 2023 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, May 07 2023
EXTENSIONS
a(7)-a(9) from Rémy Sigrist, May 07 2023
STATUS
approved